daishen 发表于 2014-9-16 14:35 
这回正常了。
这是我运行的结果,好像问题还挺多的,不知道怎么解决
> library(data.table)
Error in library(data.table) : there is no package called ‘data.table’
>
> # 5类划分
>
> dat <- data.table(x = 1:5,y = c(0.001,0.01,0.05,0.1,1),z = c('***','**','*','.',''))
Error: could not find function "data.table"
> setkey(dat,x)
Error: could not find function "setkey"
>
> # 把数据按照类别分组
>
> data = data.table(x = 1:1001,y = seq(0,1,0.001))
Error: could not find function "data.table"
> data = data[,z := rep(1:5,rle(y%in%dat[,y])lengths[which(1:length(rle(ylengths) %% 2 == 1)] + 1)]
Error: unexpected symbol in "data = data[,z := rep(1:5,rle(y%in%dat[,y])lengths"
> setkey(data,z)
Error: could not find function "setkey"
> data = data[dat]
Error: object 'dat' not found
> setkey(data,x)
Error: could not find function "setkey"
>
> # 模拟一组数据
>
> yourdata = data.table(x = 1:10,p.vaule = round(abs(rnorm(10)/10),3))
Error: could not find function "data.table"
> setkey(yourdata,x)
Error: could not find function "setkey"
>
> yourdata[data,nomatch=0]
Error: object 'yourdata' not found