###################################################
### chunk number 1: 
###################################################
redpine = c(42,23,43,34,49,56,31,47,61,54,46,34,26)
redpine
length(redpine)


###################################################
### chunk number 2: 
###################################################
stem(redpine)


###################################################
### chunk number 3: 
###################################################
stem(redpine,scale=2)


###################################################
### chunk number 4: 
###################################################
hist(redpine,prob=TRUE,main="Heights (cm) of red pine seedlings")


###################################################
### chunk number 5: 
###################################################
hist(redpine,breaks=100,
  main="dot plot of red pine seedling heights (cm)")


###################################################
### chunk number 6: 
###################################################
summary(redpine)


###################################################
### chunk number 7: 
###################################################
sd(redpine)
IQR(redpine)
diff(range(redpine))


###################################################
### chunk number 8: 
###################################################
var(redpine)
sd(redpine)^2


###################################################
### chunk number 9: 
###################################################
c(SD=sd(redpine),IQR=IQR(redpine),Range=diff(range(redpine)))


###################################################
### chunk number 10: 
###################################################
watershed = c(0.3,0.3,0.4,0.5,0.5,1.3,1.6,1.8,2.6,2.6,2.6,4.7,9.1,9.1,12.9,19.4,33.7,176.1)
stem(watershed)


###################################################
### chunk number 11: 
###################################################
logshed = log10(watershed)
stem(logshed)


###################################################
### chunk number 12: 
###################################################
stem(log10(watershed))