powered by
negbin.rel.pca(x, mu.min, mu.max, len = 200, plot = TRUE, seed = 132)
x <- sim.negbin(c(4,5,10),3,10,12) negbin.rel.pca(x,1,20,len=20,plot=TRUE,seed=132)
Run the code above in your browser using DataLab