# 3
ii<-read.csv('nhanes.csv')

# 5
names(ii)
head(ii)
tail(ii)
dim(ii)

# 6
ii$pounds<-ii$bmxwt*2.20462

# 7
ii$feet<-ii$bmxht*0.0328084

# 8
sum(1:100)
100*101/2

# 9
2^(1:10)

# 10
1:10+4
1:(10+4)

# 11
paste(letters,collapse='')

# 12
paste(rep('This is not a statistics class.',10),collapse=' ')