R/ABanova.R

In SSDforR: Functions to Analyze Single System Data

Defines functions ABanova

Documented in ABanova

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
  
}

Try the SSDforR package in your browser