R/addTitle.R

Defines functions addTitle

addTitle <- function(x, cex = 1)
{
  text(par('usr')[1] + (par('usr')[2] - par('usr')[1])/40 ,par("usr")[4] - (par('usr')[4] - par('usr')[3])/40,x, adj = c(0,1),cex=cex)       
}
SachaEpskamp/qgraph documentation built on Nov. 9, 2023, 12:27 p.m.