> Class:=[
65,
69.5,
78,
65,
95,
75,
68.5,
97,
88,
69,
93,
91,
75,
71.5,
52.2,
82,
65,
100,
48,
73,
94,
85,
74.5,
69.5,
90,
54.5,
78.5,
99,
91,
91,
99,
99,
69,
76.5,
96,
56,
62,
65,
37.5,
58,
67,
81,
99,
68,
79,
57,
88,
72,
89,
80,
89,
76,
79.5,
74,
86,
64.5,
49.5,
50,
86,
57,
99,
72,
90,
77,
84,
52,
78,
53,
83,
83,
73,
56.5,
58,
50,
49,
76,
76,
89.5,
81,
87,
89,
71,
88,
82,
75,
90,
98.5,
94,
81,
44,
95,
86,
78,
78,
71,
83,
62,
73,
76,
80,
62,
63.5,
82,
66,
74,
68.5,
81.5,
99,
79,
96,
61.5
];

Class := [65, 69.5, 78, 65, 95, 75, 68.5, 97, 88, 69, 93, 91, 75, 71.5, 52.2, 82, 65, 100, 48, 73, 94, 85, 74.5, 69.5, 90, 54.5, 78.5, 99, 91, 91, 99, 99, 69, 76.5, 96, 56, 62, 65, 37.5, 58, 67, 81, 9...Class := [65, 69.5, 78, 65, 95, 75, 68.5, 97, 88, 69, 93, 91, 75, 71.5, 52.2, 82, 65, 100, 48, 73, 94, 85, 74.5, 69.5, 90, 54.5, 78.5, 99, 91, 91, 99, 99, 69, 76.5, 96, 56, 62, 65, 37.5, 58, 67, 81, 9...Class := [65, 69.5, 78, 65, 95, 75, 68.5, 97, 88, 69, 93, 91, 75, 71.5, 52.2, 82, 65, 100, 48, 73, 94, 85, 74.5, 69.5, 90, 54.5, 78.5, 99, 91, 91, 99, 99, 69, 76.5, 96, 56, 62, 65, 37.5, 58, 67, 81, 9...Class := [65, 69.5, 78, 65, 95, 75, 68.5, 97, 88, 69, 93, 91, 75, 71.5, 52.2, 82, 65, 100, 48, 73, 94, 85, 74.5, 69.5, 90, 54.5, 78.5, 99, 91, 91, 99, 99, 69, 76.5, 96, 56, 62, 65, 37.5, 58, 67, 81, 9...

> with(stats):
with(stats[statplots]):

histogram(Class, area=count,numbars=7);

Warning, these names have been redefined: anova, describe, fit, importdata, random, statevalf, statplots, transform

Warning, these names have been redefined: boxplot, histogram, scatterplot, xscale, xshift, xyexchange, xzexchange, yscale, yshift, yzexchange, zscale, zshift

[Plot]

>