R/SD2legend.R

In SSDforR: Functions to Analyze Single System Data

SD2legend <-
function(){
  
  #par(mar=c(1, 1, 1, 1))
  #plot.new()
  #legend("center", c("behavior","+2sd","mean","-2sd"), col = c("red","black", "green","black"),lwd = 3,ncol=4,bty ="n")
  legend("bottom",inset=c(-.3,-.96,-.3),xpd = TRUE, c("behavior","+2sd","mean","-2sd"), col = c("red","black", "green","black"), lwd = 1,ncol=4,bty ="n")
  }