LA R-Program III

MENGOLAH DATA MENGGUNAKAN R PROGRAM

> data= scan()
1: 50 52 52 60 69 73 90 99 75 55
11: 65 81 90 55 54 75 57 99 95 50
21: 61 72 72 81 88 85 92 93 90 53
31: 50 70 68 61 51 80 91 93 90 85
41: 51 53 59 63 65 70 85 90 73 90
51:
Read 50 items


> sort (data)
[1] 50 50 50 51 51 52 52 53 53 54 55 55 57 59 60 61 61 63 65 65 68 69 70 70 72
[26] 72 73 73 75 75 80 81 81 85 85 85 88 90 90 90 90 90 90 91 92 93 93 95 99 99
 
Keterangan:

• > a = scan()   : Digunakan untuk memasukan data.
• > sort(a)        : Digunakan untuk melihat jumlah data/banyaknya data

> tabel = edit(data.frame())

> tabel
KELAS
1 50-57
2 58-65
3 66-73
4 74-81
5 82-89
6 90-97
7 98-99

Keterangan :
Masukan Kelas intervalnya dengan menggunakan Data Editor 

> 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)
+ }

Keterangan :

• > frek = function(x,y,z)
  Digunakan untuk membuat function/rumus untuk mencari frekuensi 
• +for(i in 1:length(data))
  lenght a adalah 20 jadi i dalam perulangan diatas bernilai 1-50.
• +if(x[i]>=y && x[i]<=z)
  +a=a+1
  maksud dari statment diatas adalah jika x[i]>=y AND x[i]<=z maka nilai d akan bertambah 1. Arti dari x[i] adalah mengangambil nilai x(data) dari alamat i.
• +print (d)
  Nilai d akan dicetak sebagai hasil dari function.

> frekuensi(data,50,57)
[1] 13
> frekuensi(data,58,65)
[1] 7
> frekuensi(data,66,73)
[1] 8
> frekuensi(data,74,81)
[1] 5
> frekuensi(data,82,89)
[1] 4
> frekuensi(data,90,97)
[1] 11
> frekuensi(data,98,99)
[1] 2

> fr = c(13,7,8,5,4,11,2)
> tabel$frekuensi<-fr
> tabel
KELAS frekuensi
1 50-57 13
2 58-65 7
3 66-73 8
4 74-81 5
5 82-89 4
6 90-97 11
7 98-99 2
 
Keterangan :

Setelah frekuensi didapat masukan frekuensi ke variable fr. Lalu gabungkan fr dengan table yang telah kita buat tadi dengan nama field Frekuensi.

> median(50:57)
[1] 53.5
> median(58:65)
[1] 61.5
> median(66:73)
[1] 69.5
> median(74:81) 
[1] 77.5
> median(82:89)
[1] 85.5
> median(90:97)
[1] 93.5
> median(98:99)
[1] 98.5

Keterangan :
Median diatas didapat dari masing-masing titik tengah pada kelas interval.

> fr = c(53.5,61.5,69.5,77.5,85.5,93.5,98.5)
> tabel$median<-fr
> tabel
KELAS    frekuensi median
1 50-57     13     53.5
2 58-65     7      61.5
3 66-73     8      69.5
4 74-81     5      77.5
5 82-89     4      85.5
6 90-97     11     93.5
7 98-99     2      98.5
 
Keterangan :

Setelah frekuensi didapat masukan frekuensi ke variable fr. Lalu gabungkan fr dengan table yang telah kita buat tadi dengan nama field median.

MODUS

Sekarang kita tinggal membuat hasil dari analisa data yang telah kita lakukan tadi kedalam bentuk histogram, plot dan Polygon.

> hist(data,main = "Tabel Nilai MHS")

> titiktengah<-c(53.5,61.5,69.5,77.5,85.5,93.5,98.5)
> titiktengah
[1] 53.5 61.5 69.5 77.5 85.5 93.5 98.5

> fi<-c(13,7,8,5,4,11,2)
> fi
[1] 13 7 8 5 4 11 2

> plot(titiktengah,fi,main="Tabel Nilai MHS")

> polygon(titiktengah,fi,border="red",col="red")