r-programming 3

cara membuat tabel, mencari frekuensi dan median

pertama masukan datanya seprti dibawah ini

> 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.