R/plot.pvr.r

In vanderleidebastiani/daee: Data Analysis for Ecology and Evolution

#' @rdname PVR
#' @encoding UTF-8
#' @export
plot.pvr<-function(x, trait = 1, ...){
	graphics::plot(x$PSR.curve.axis.x, x$PSR.curve.axis.y[trait,], ylim = c(0, 1), xlim = c(0, 1), xlab = "Cumulative eigenvalues", ylab = "R2", ...)
	graphics::abline(0,1)	
}