> fb13 <- read.csv("fb13.csv", header=TRUE)
## no name pos ht wt yr city "state (hs)"
> w<-fb13$wt
> h<-fb13$ht
> w
> w[order(w)]
> length(w)
> dotchart(w)
> stripchart(w)
> stem(w)
> stem(h)
> stem(h, scale=.25)
> stem(h, scale=.1)
> stem(h, scale=.15)
> hist(w)
> hist(w, breaks=5)
> hist(w, breaks=5, right=FALSE)
> hist(w, breaks=25)
> hist(w, right=FALSE)
> hist(w, breaks=137.5+25*1:8 )
> hist(w, breaks=137.5+25*1:8,xlab="player wts", main="UNI 2013 football", ylab="number of players" )
> q()
> summary(w)
> mean(w)
> median(w)
> (max(w)+min(w))/2
> min(w)
> max(w)
> length(w)
> wr<-w[order(w)]
> wr[26]
> wr[76]
> (wr[25]+wr[26])/2
> (wr[76]+wr[77])/2
> range(w)
> var(w)
> sd(w)
> IQR(w)
> boxplot(w)
> w2<-wr[2:101]
> w3<-wr[1:100]
> w4<-wr
> w4[101]<-131
>