# NOT RUN {
data(toycluster.EXPLN)
par(mfrow=c(3,4))
for (i in 1:ncol(toycluster.EXPLN)) {
hist(toycluster.EXPLN[,i],xlab="synthetic data from EXP-LN model",
main=colnames(toycluster.EXPLN)[i],col="grey")
}
par(mfrow=c(1,1))
# }
Run the code above in your browser using DataLab