voles <- read.table("C:/Rexamples/voles_data.txt", header=T)
View(voles)
summary(voles)
attach(voles)
voles
summary(number)
sd(number)
var(number)
boxplot(number)
stem(number)

--------------------- NOTE ------------------------

The first line above which reads the data from the file
"voles_data.txt" assumes that this file is in the directory
"C:/Rexamples".  Obey this convention of modify the command.

-------------------------- results ----------------------------------

The boxplot requested in this program will appear in
the plot window of RStudio.  They can be saved as pdfs or images. I
have not posted them here.  These plots are somewhat crude since I
did not specify titles, labels, or such.

The remainder of this file is copied and pasted from the RStudio
command window.

---------------------------------------------------------------------

> voles <- read.table("C:/Rexamples/voles_data.txt", header=T)
> View(voles)
> summary(voles)
     number
 Min.   : 1.000
 1st Qu.: 5.000
 Median : 6.000
 Mean   : 5.888
 3rd Qu.: 7.000
 Max.   :11.000
> attach(voles)
> voles
    number
1        1
2        2
3        2
4        3
5        3
6        3
7        3
8        3
9        3
10       3
11       3
12       3
13       3
14       3
15       3
16       3
17       4
18       4
19       4
20       4
21       4
22       4
23       4
24       4
25       4
26       4
27       4
28       4
29       4
30       4
31       4
32       4
33       4
34       4
35       4
36       5
37       5
38       5
39       5
40       5
41       5
42       5
43       5
44       5
45       5
46       5
47       5
48       5
49       5
50       5
51       5
52       5
53       5
54       5
55       5
56       5
57       5
58       5
59       5
60       5
61       5
62       5
63       5
64       5
65       5
66       5
67       5
68       5
69       5
70       5
71       6
72       6
73       6
74       6
75       6
76       6
77       6
78       6
79       6
80       6
81       6
82       6
83       6
84       6
85       6
86       6
87       6
88       6
89       6
90       6
91       6
92       6
93       6
94       6
95       6
96       6
97       6
98       6
99       6
100      6
101      6
102      6
103      6
104      6
105      6
106      6
107      6
108      6
109      7
110      7
111      7
112      7
113      7
114      7
115      7
116      7
117      7
118      7
119      7
120      7
121      7
122      7
123      7
124      7
125      7
126      7
127      7
128      7
129      7
130      7
131      7
132      7
133      7
134      7
135      7
136      7
137      7
138      7
139      7
140      7
141      7
142      8
143      8
144      8
145      8
146      8
147      8
148      8
149      8
150      8
151      8
152      8
153      8
154      8
155      8
156      8
157      8
158      8
159      8
160      9
161      9
162      9
163      9
164      9
165      9
166      9
167      9
168     10
169     10
170     11
> summary(number)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.
  1.000   5.000   6.000   5.888   7.000  11.000
> sd(number)
[1] 1.74884
> var(number)
[1] 3.058441
> boxplot(number)
> stem(number)

  The decimal point is at the |

   1 | 0
   2 | 00
   3 | 0000000000000
   4 | 0000000000000000000
   5 | 00000000000000000000000000000000000
   6 | 00000000000000000000000000000000000000
   7 | 000000000000000000000000000000000
   8 | 000000000000000000
   9 | 00000000
  10 | 00
  11 | 0

>