> data = scan ()
1: 65 50 70 75 70 6: 50 45 90 95 70 11:
Membuat data yang berisikan 65 50 70 75 70 ; 50 45 90 95 70
> data
menunjukan isi pada variabel data
[1] 65 50 70 75 70 50 45 90 95 70
> sort (data)
Mengurutkan data pada variabel data
[1] 45 50 50 65 70 70 70 75 90 95
> min (data)
Mengetahui nilai terendah pada variabel data
[1] 45
> max (data)
Mengetahui nilai tertinggi pada variabel data
[1] 95
> jangkauan= max (data) - min (data)
Mengetahui jangkauan pada variable data
> jangkauan
menunjukan hasil perhitungan jangkauan dari variable data
[1] 50



> jumlahkelas= 1 + (3.322*log10(length(data)))
Mengetahui perhitungan jumlah kelas pada variable data
> jumlahkelas
menunjukan hasil perhitungan jumlah kelas pada variable data
[1] 4.322

> interval = jangkauan/jumlahkelas
Mengetahui banyaknya data pada variable data
> interval
Menunjukan hasil banyaknya data pada variable data
[1] 11.56872
> round (jumlahkelas)
Membulatkan ke atas hasil pada perhitungan sebelumnya dari variabel jumlahkelas
[1] 4
> floor (jumlahkelas)
Membulatkan ke bawah hasil pada perhitungan sebelumnya dari variabel jumlahkelas
[1] 4
> round (interval)
Membulatkan ke atas hasil pada perhitungan sebelumnya dari variabel interval
[1] 12



> floor (interval)
Membulatkan ke bawah hasil dari perhitungan sebelumnya pada variabel interval
[1] 11
> mean = sum (data) / length (data)
Mengetahui rataan hitung pada variable data
> mean
menunjukan hasil rataan hitung pada variable data
[1] 68
> median = length (data)/ 2
Mengetahui nilai tengah pada variable data
> median
menunjukan hasil nilai tengah pada variable data [1] 5
+ > frek = function (x,y,z)
+ frek = function (x,y,z){}
> frek = function(x,y,z)
+ {
+ a=0
+ for(i in 1:length(x))
+ {
+ if(x[i] >= y && x [i] <= z)
+ {
+ a=a+1
+ }
+ print(a)
+ }
+ }



Mengetahui frekuensi masing-masing nilai pada variable data
> frek(data,45,56) >frek(data,57,68)
> frek(data,69,80) >frek(data,81,82)
> frek(data,93,104)
menunjukan hasil frekuensi masing-masing nilai pada variable data