小女子跪求一道R语言的题解答。！！

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)

这两步默认是不输出结果的，你输入
kew
看看有没有出现我第一个回复里面的结果？

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"

运行：
install.packages("doBy")
library(doBy)

jacosis 发表于 2011-11-14 17:30
运行：
install.packages("doBy")
library(doBy)

OK...



谢谢，我再研究

根据楼主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个问题的答案就出来了.