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)
Run the code above in your browser using DataLab