> sort(data)
[1] 21 22 25 35 43 50 50 61 63 69 70 72 73 77 81 84 88 90 92 96
> length(data)
[1] 20
> max(data)
[1] 96
> min(data)
[1] 21
> jangkauan=max(data)-min(data)
> jangkauan
> jmlkelas=(1+3.322*log10(length(data)))
> jmlkelas
[1] 5.322022
> jmlkelas=round(jmlkelas)
> jmlkelas
[1] 5
> interval=jangkauan/jmlkelas
> interval
[1] 15
> sapi $frek=c(frek(data,21,35),frek(data,36,50),frek(data,51,65),frek(data,66,80),frek(data,81,95),frek(data,96,110))
(Yang Lain Menyusul \m/ )
0 komentar:
Posting Komentar