# NOT RUN {
f <- gjamSimData(S = 30, typeNames = 'CA')
ml <- list(ng = 1000, burnin = 200, typeNames = f$typeNames, holdoutN = 10)
output <- gjam(f$formula, f$xdata, f$ydata, modelList = ml)
ePCA <- gjamOrdination(output, PLOT=TRUE)
eNMDS <- gjamOrdination(output, PLOT=TRUE, method='NMDS')
# }
Run the code above in your browser using DataLab