#####
# Preparation Survey
#####

# Read in the data
data <- read.csv("http://courses.kvasaheim.com/pols6123/data/positioningtubes.csv", header=FALSE)

#Attach the data
attach(data)

# Calculate statistics
mean(V1)
median(V1)
quantile(V1,0.50)
min(V1)
max(V1)

var(V1)
sd(V1)
IQR(V1)
max(V1)-min(V1)
quantile(V1,0.75)

# Create basic histogram
hist(V1)

# Create basic boxplot
boxplot(V1)

# Perform the t-test
t.test(V1,mu=12.25)