R/SPClegend.R

In SSDforR: Functions to Analyze Single System Data

Defines functions SPClegend

Documented in SPClegend

SPClegend <-
function(){
  
  par(mar=c(1, 1, 1, 1))
  plot.new()
  legend("center", c("behavior","Uband","mean","Lband"), col = c("red","blue", "green","orange"), lwd = 1,ncol=4,bty ="n")
}

Try the SSDforR package in your browser