##2
a <- 12
b <- 5

##3
a + b

##4
sum(a,b)

##5
x <- rnorm(10000)
y <- rnorm(10000)

##6
str(x)
str(y)

##7
plot(x,y)

##8
hist(x)
hist(y)

##9
xd <- density(x)

##10
plot(xd)

##11
var(x)
mean(x)
var(y)
mean(y)

##12
t.test(x,y)

##13
ls()

##14
y <- rnorm(10000, mean=10)
t.test(x,y)

##15
demo(graphics)