bigmouse

求问为什么两者结果输出不一样？

rm(list=ls())
s1<-c(1,2,5,7,9)
s2<-c(1,2,6,8,3)
s3<-c(1,2,5,3,3)
s<-data.frame(s1,s2,s3)
setcolNULL<-function(data,x){
return(subset(data,select=c(-x)))
}
setcolNULL(s,c(s1,s3))

#output:data frame with 0 columns and 5 rows

subset(s,select=c(-c(s1,s3)))
#output: s2
1 1
2 2
3 6
4 8
5 3

</p>
<p>> data(dietox)<br />
> dx<-subset(dietox,Time==12)<br />
> summaryBy(Weight+Feed~Evit+Cu,data=dx,FUN=c(mean,var,length))<br />

报错：

Error in FUN(X[[1L]], ...) : could not find function "currFUN"</p>

求问怎么解决？

[s:11]