LA ( Laporan Akhir ) Praktikum Statistika Mencari Interval Kelas, Rata-rata, Modus, dan Histogram Data Kelompok 12 Juni 2014
LISTING PROGRAM > data=c(65,98,76,78,88,50,75,77,56,65,76,97,56,67,89,89,66,78,97,78) > data [1] 65 98 76 78 88 50 75 77 56 65 76 97 56 67 89 89 66 78 97 78 > length(data) [1] 20 > sort(data) [1] 50 56 56 65 65 66 67 75 76 76 77 78 78 78 88 89 89 97 97 98 > max(data) [1] 98 > min(data) [1] 50 > jangkauan=max(data)-min(data) > jangkauan [1] 48 > length(data) [1] 20 > jumlahkelas=(1+3.322*log10(length(data))) > jumlahkelas [1] 5.322022 > round(jumlahkelas) [1] 5 > jangkauan [1] 48 > jumlahkelas [1] 5.322022 > interval=jangkauan/jumlahkelas > jangkauan/jumlahkelas [1] 9.019129 > round(interval) [1] 9 > x11=mean(50:59) > x12=mean(60:69) > x13=mean(70:79) > x14=mean(80:89) > x15=mean(90:99) > x11 [1] 54.5 > x12 [1] 64.5 > x13 [1] 74.5 > x14 [1] 84.5 > x15 [1] 94.5 > frekuensi=function(x,y,z){ + a=0 + for(i in 1:length(data)){ + if(x[i]>=y&&x[i]<=z){ + a=a+1 + } + } + print(a) + } > frekue