Nothing
ABplotm <-
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
}
plot(x,y, ylim=c(0,max),xlim=c(0,numx),lwd=2,type="o",col="red", xlab=ABxlab, ylab=ABylab, main=ABmain,bty='L' )
instruct<-"You can add lines between phases by using the ABlines() function. You can add text by using the ABtext() function. You can also add a mean, median, sd line by using the ABstat() function."
strwrap(instruct)
}
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.