楼主: iyiyilsl
4570 15

[学习分享] 小女子跪求一道R语言的题解答。！！ [推广有奖]

11楼
iyiyilsl 发表于 2011-11-14 15:36:41 |只看作者 |坛友微信交流群
jacosis 发表于 2011-11-14 14:26
第一步你要先把数据导入，比如你把数据存在E盘，我把文件后缀改为了txt
kew
> kew <- read.table("D:\\kew.txt", header=T)
> kew
> Sys.setlocale("LC_TIME", "C") #set the time zone;

从下一步开始什么都没出现了
> kew$date <- as.Date(paste(1, kew$Month, kew$Year), format="%d %b %Y")
> kew$month <- substr(as.character(kew$date),6,7)

使用道具

12楼
jacosis 发表于 2011-11-14 15:46:31 |只看作者 |坛友微信交流群
这两步默认是不输出结果的，你输入
kew
看看有没有出现我第一个回复里面的结果？

使用道具

13楼
iyiyilsl 发表于 2011-11-14 17:22:32 |只看作者 |坛友微信交流群
jacosis 发表于 2011-11-14 15:46
这两步默认是不输出结果的，你输入
kew
看看有没有出现我第一个回复里面的结果？
之前的问题解决了，现在是。。。

> myfun <- function(x) {c(ave=mean(x), sd=sd(x))}
> a <- summaryBy(Rain~Month,data=kew, FUN=myfun)
Error: could not find function "summaryBy"

使用道具

14楼
jacosis 发表于 2011-11-14 17:30:43 |只看作者 |坛友微信交流群
运行：
install.packages("doBy")
library(doBy)

使用道具

15楼
iyiyilsl 发表于 2011-11-14 17:49:05 |只看作者 |坛友微信交流群
jacosis 发表于 2011-11-14 17:30
运行：
install.packages("doBy")
library(doBy)
OK...



谢谢，我再研究

使用道具

16楼
epoh 发表于 2011-11-14 19:09:48 |只看作者 |坛友微信交流群

根据楼主8楼po文的内容

第二问是要用其他方法,

还是不能用built-in command kruskal.test

但是perform a Kruskal-Wallis test依据

· Combine all of the Ys and rank them. ...

· using the ranks {Rij} as data,and extract the between-groups sum of squares;

   SSB.

· Calculate the test statistic K....

如果是后者,还算简单吧

依序写出程序,4个问题的答案就出来了.

使用道具

返回列表
12
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
  • 手机版  |
  • 意见反馈  |
  • 帮助  |
  • 新手入门  |
  • 用户手册  |
  • 友情链接  |

    • 如有投资本站、合作意向或投放广告，请联系：13661292478（刘老师）

    联系客服

    邮箱：service@pinggu.org 投诉或不良信息处理：（010-68466864）

    010-68466864

    京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

    GMT+8, 2024-5-24 16:45