# Statistics One, Lecture 3, example script
# Read data, plots histograms, get descriptives
library("psych")
ratings < - read.table("stats1_ex01.txt", header=T)
class(ratings)
names(ratings)
hist(RedTruck)
layout(matrix(c(1,2,3,4),2,2, byrow=TRUE))
hist(ratings$WoopWoop,xlab="Rating")
hist(ratings$RedTruck,xlab="Rating")
hist(ratings$HobNob,xlab="Rating")
hist(ratings$FourPlay,xlab="Rating")
describe(ratings)