Nothing
ABanova <-
function(behavior,phaseX){
meanA<-tapply(behavior,phaseX,mean,rm.na=T)
aovx<-aov(behavior~as.factor(phaseX))
print(summary(aovx))
print(meanA)
tukeyx<-TukeyHSD(aovx)
graphics.off()
plot(tukeyx)
tukeyx
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.