data(cepha)
plot(cepha$thetas, cepha$patterns[1,], type="l", xlab="2theta", ylab="Counts")
matplot(cepha$thetas, t(cepha$patterns), type="l",xlab="2theta", ylab="Counts",
col=as.integer(factor(cepha$class.names))+1, lty=1)
Run the code above in your browser using DataLab