data(dietox)
dietox12 <- subset(dietox,dietox$Time==12)summaryBy(Weight+Feed~Evit+Cu, data=dietox12, FUN=c(mean,var), na.rm=TRUE)
summaryBy(Weight+Feed~Evit+Cu+Time, data=subset(dietox,Time>1),
FUN=c(mean,var), na.rm=TRUE)
summaryBy(Weight+Feed~Evit+Cu, data=dietox12, FUN=length)
summaryBy(log(Weight)+Feed~Evit+Cu, data=dietox12)
summaryBy(.~Evit+Cu, data=dietox12, id=~Litter, FUN=mean)
data(warpbreaks)
summaryBy(breaks ~ wool+tension, warpbreaks)
summaryBy(breaks ~., warpbreaks)
summaryBy(.~ wool+tension, warpbreaks)
summaryBy(Ozone~Month, data=airquality,FUN=c(mean,var),na.rm=TRUE)
summaryBy(Ozone+Wind~Month, data=airquality,FUN=c(mean),na.rm=TRUE,
keep.names=TRUE)
summaryBy(Ozone+Wind~Month, data=airquality,FUN=c(mean,var),na.rm=TRUE,
prefix=c("m","v"))
Run the code above in your browser using DataLab