Analisis Data Eksploratif 2

Pertemuan 2

RINGKASAN DATA ASLI DAN DATA BERKELOMPOK

Input Data

data<-c(93, 85, 66, 66, 63,60, 73, 72, 71, 80, 75, 83)
data<-sort(data)
data

##  [1] 60 63 66 66 71 72 73 75 80 83 85 93

Membuat Tabel Distribusi Frekuensi

Menentukan Jumlah Kelas

jumlahkelas<-1+(3.322*log10(length(data)))
jumlahkelas<-round(jumlahkelas)
jumlahkelas

## [1] 5

Menentukan Jangkauan/ Range

jangkauan<-max(data)-min(data)
jangkauan

## [1] 33

Menentukan Interval Kelas

intervalkelas<-jangkauan/jumlahkelas
intervalkelas<-round(intervalkelas)
intervalkelas

## [1] 7

Menghitung Nilai Tengah Setiap Kelas

mean(59:65)

## [1] 62

mean(66:72)

## [1] 69

mean(73:79)

## [1] 76

mean(80:86)

## [1] 83

mean(87:93)

## [1] 90

Menghitung Frekuensi Setiap Kelas

Buat funtion-nya dulu

frek<-function (x,maks,min){
  a<-0
  for (i in 1 : length(x)){
    if (x[i]>=maks && x[i]<=min){
      a<- a + 1}}
  print(a)}

Panggil Hasil Frek

frek(data,59,65)

## [1] 2

frek(data,66,72)

## [1] 4

frek(data,73,79)

## [1] 2

frek(data,80,86)

## [1] 3

frek(data,87,93)

## [1] 1

Membuat Tabel

Teman-teman pratikan bisa input nilai kedalam tabel (agar mudah gunakan command berikut)

tabel<-edit(data.frame())
tabel

## data frame with 0 columns and 0 rows

atau langsung buat manual seperti berikut

Interval <- c("59 - 65","66 - 72","73 - 79", "80 - 86", "87 - 93")
xi <- c(62,69,76,83,90)
fi <- c(2,4,2,3,1)
fixi <- xi*fi
tabel <- data.frame(Interval,xi,fi,fixi)
tabel

##   Interval xi fi fixi
## 1  59 - 65 62  2  124
## 2  66 - 72 69  4  276
## 3  73 - 79 76  2  152
## 4  80 - 86 83  3  249
## 5  87 - 93 90  1   90

Rataan Data Berkelompok

rataan<-sum(tabel$fixi)/sum(tabel$fi)
rataan

## [1] 74.25

Median Data Berkelompok

kelasmedian<-length(data)/2
kelasmedian

## [1] 6

tbm<- 65.5 #tepi bawah kelas median
fkm<- 2 #frekuensi kumulatif kelas sebelum kelas median
fm<- 4 #frekuensi kelas median
median<-tbm+intervalkelas*((kelasmedian-fkm)/fm)
median

## [1] 72.5

Modus Data Berkelompok

tbm<-65.5 #tepi bawah kelas modus
d1<-4-2
d2<-4-2
modus<-tbm+intervalkelas*(d1/(d1+d2))
modus

## [1] 69

Ragam dan Standar Deviasi Data Berkelompok

ragam<-(sum(tabel$fixi^2)-
          (sum(tabel$fixi)^2/sum(tabel$fi)))/sum(tabel$fi)
ragam

## [1] 9883.354

stdev<-sqrt(ragam)
stdev

## [1] 99.41506

Ampun…. dah pusing banget coy :)

みんな　がんばって　ください！！！

おちついて。。。ここ　に　RENALDI せんぱい　が　います。