Replace with Main Title

Your Name

2014-10-27

> histogram(~elevel | alength, data=alpha)

> bwplot(~elevel | alength, data=alpha)

> qqmath(~elevel | alength, data=alpha,prepanel = prepanel.qqmathline,
+        panel = function(x, ...) {
+           panel.qqmathline(x, ...)
+           panel.qqmath(x, ...)
+        })

> library(e1071, pos=43)

> numSummary(alpha[,"elevel"], groups=alpha$alength, statistics=c("mean", 
+   "sd", "IQR", "quantiles"), quantiles=c(0,.25,.5,.75,1))

                 mean        sd    IQR    0%    25%   50%    75% 100%
short        1.897917 1.8548268 1.6775 -2.83 1.1400 1.915 2.8175 5.80
intermediate 2.332069 1.5808245 1.7750 -2.40 1.6075 2.735 3.3825 4.43
long         3.086667 0.9738632 1.0650  1.45 2.4850 3.370 3.5500 4.40
             data:n
short            24
intermediate     58
long             15

> numSummary(alpha[,"elevel"], groups=alpha$alength, statistics=c("mean", 
+   "sd", "IQR", "quantiles"), quantiles=c(0,.25,.5,.75,1))

                 mean        sd    IQR    0%    25%   50%    75% 100%
short        1.897917 1.8548268 1.6775 -2.83 1.1400 1.915 2.8175 5.80
intermediate 2.332069 1.5808245 1.7750 -2.40 1.6075 2.735 3.3825 4.43
long         3.086667 0.9738632 1.0650  1.45 2.4850 3.370 3.5500 4.40
             data:n
short            24
intermediate     58
long             15