R/ABtsplot.R

In SSDforR: Functions to Analyze Single System Data

ABtsplot <-
function(behavior,phaseX,ABxlab,ABylab, ABmain){
maxy=which.max(behavior)
max<-behavior[maxy]+1
numx<-sum(!is.na(behavior))+3

y<-na.omit(behavior)
total=length(y)
x=(1:total)

end<-which(is.na(phaseX))
np<-length(end)
j=1
while (j <= np){
  e<-end[j]
  
  
  
  y<-insert(y,NA,e)
  x<-insert(x,NA,e)
  j=j+1
}

#graphics.off()
layout(rbind(1,2), heights=c(4,1))
ts.plot(y, ylim=c(0,max),xlim=c(0,numx),col="red", xlab=ABxlab, ylab=ABylab, main=ABmain )


writeLines("-------------------------------------------------------------------------------------")
writeLines("1-You can add lines between phases by using the ABlines() function.")
writeLines("2-You can add text by using the ABtext() function.")
writeLines("3-You can also add a mean, median, sd line by using the ABstat() function.")
writeLines("-------------------------------------------------------------------------------------")
}