powered by
eigenvaluePlot
eigenvaluePlot(Y, nc_index, k = 10, center = TRUE, title = "Eigenvalue Plot")
Y<-simulateGEdata(500, 500, 10, 2, 5, g=NULL, Sigma.eps=0.1, 250, 100, intercept=FALSE, check.input=FALSE) eigenvaluePlot(Y$Y, nc_index=251:500, k=20, center=TRUE)
Run the code above in your browser using DataLab