## Use parallel to dispatch the computations on 2 workers
if (FALSE) {
options(mc.cores = 2)
}
data(trichoptera)
trichoptera <- prepare_data(trichoptera$Abundance, trichoptera$Covariate)
myPCA <- PLNPCA(Abundance ~ 1 + offset(log(Offset)), data = trichoptera, ranks = 1:5)
if (FALSE) {
options(mc.cores = 1)
}
Run the code above in your browser using DataLab