# # Chapter 1 -- Bayesian Computation With R # Demonstrates the Studentdata example # # Remove all objects just to be safe # rm(list=ls(all=TRUE)) # library(LearnBayes) # data(studentdata) attach(studentdata) # # Type in Remaining Commands in R Window # hist(Dvds) table(Dvds) windows() barplot(table(Dvds),main="",xlab="",ylab="",col="red",font=2) # # Main title mtext("Bar Plot of Number of DVDs Rented",side=3,line=1.00,cex=1.2,font=2) # x-axis title mtext("Number Rented",side=1,line=2.75,font=2,cex=1.2) # y-axis title mtext("Count",side=2,line=2.75,font=2,cex=1.2) # detach(studentdata)