contoh coding program R progaming yang mengeluarkan nilqi quartil

> data = c (41,45,49,51,52,53,55,56,63,57,58,59,60,61,67,62,56,63,35,65,65,65,67,67,73,61,69,69,96,69,70,71,71,77,79,73,93,73,81,59,83,83,87,89,71,92,81,65,84,75,75,77,89,67,79,79,81)
> data
[1] 41 45 49 51 52 53 55 56 63 57 58 59 60 61 67 62 56 63 35 65 65 65 67 67 73
[26] 61 69 69 96 69 70 71 71 77 79 73 93 73 81 59 83 83 87 89 71 92 81 65 84 75
[51] 75 77 89 67 79 79 81
> min (data)
[1] 35
> max (data)
[1] 96
> sort (data)
[1] 35 41 45 49 51 52 53 55 56 56 57 58 59 59 60 61 61 62 63 63 65 65 65 65 67
[26] 67 67 67 69 69 69 70 71 71 71 73 73 73 75 75 77 77 79 79 79 81 81 81 83 83
[51] 84 87 89 89 92 93 96
> length (data)
[1] 57
> jangkauan = max(data) - min (data)
> jangkauan
[1] 61
> jmlkelas= 1 + (3.322 * log10 (length (data)))
> jmlkelas
[1] 6.833016
> interval = jangkauan / jmlkelas
> interval
[1] 8.927243
> frekuensi = fuction (x,y,z)
Error: could not find function "fuction"
> frekuensi = function (x,y,z)
+ {
+ a=0
+ for (i in 1 : length (x))
+ {
+ if (x [i] <=y && x [i] <=z)
+ {
+ a=a+1
+ }
+ }
+ print (a)
+ +}
Error: unexpected '}' in:
"print (a)
+}"
> frekuensi = function(x,y,z)
+ {
+ a=0
+ for (i in 1 : length (x))
+ if (x [i] <=y && x [i] <=z)
+ {
+ a=a+1
+ }
+ }
> print (a)
Error in print(a) : object 'a' not found
> frekuensi = function
+ for (i in 1 : length (x))
Error: unexpected 'for' in:
"frekuensi = function
for"
> frekuensi function (x,y,z)
Error: unexpected 'function' in "frekuensi function"
> frekuensi = function (x,y,z)
+ {
+ a=0
+ for (i in 1 : length (x))
+ if (x [i] <=y && x [i] <=z)
+ {
+ a=a+1
+ }
+ }
>
>
> frekuensi function (x,y,z)
Error: unexpected 'function' in "frekuensi function"
> frekuensi=function (x,y,z)
+ {
+ a=0
+ for (i in 1 : length (x))
+ if (x [i] >=y && x [i] <=z)
+ {
+ a=a+1
+ }
+ }
> frekuensi
function (x,y,z)
{
a=0
for (i in 1 : length (x))
if (x [i] >=y && x [i] <=z)
{
a=a+1
}
}
> frekuensi (data,35,43)
> frekuensi (data,63,70)
> frekuensi (dat,71\,79)
Error: unexpected input in "frekuensi (dat,71\"
> frekuensi = function (x,y,z)
+ {
+ a = 0
+ for (i in 1 : length (x))
+ if (x [i] >=y && x [i] <=z)
+ {
+ a = a+1
+ }
+ }
>
> frekuensi
function (x,y,z)
{
a = 0
for (i in 1 : length (x))
if (x [i] >=y && x [i] <=z)
{
a = a+1
}
}
> frekuensi = function (x,y,z)
+ {
+ a=0
+ for (i in 1 : length (x))
+ {
+ if (x [i] >=y && x [i] <=z)
+ {
+ a=a+1
+ }
+ }
+ print (a)
+ }
> frekuensi (data,35,43)
[1] 2
> frekuensi (data,63,70)
[1] 14
> frekuensi (data,71,79)
[1] 13
> tabel = edit (data.frame ())
> tabel = edit (data.frame (data))
> fr = c (2,4,12,15,13,7,5)
> tabel$frekuensi=fr
Error in `$<-.data.frame`(`*tmp*`, "frekuensi", value = c(2, 4, 12, 15, :
replacement has 7 rows, data has 57
> tabel = edit (data.frame())
> tabel = edit (data.frame (data))
>
> hist (data)
> hist (fr)
> poligon(data)
Error: could not find function "poligon"
> tabel = edit (data.frame ())
> tabel = edit (data.frame (data))
>
> hist (data)
> hist (fr)
>
> poligon (data)
Error: could not find function "poligon"
> tabel = edit (data.frame ())
> tabel = edit (data.frame (data))
>
> hist (data)
> hist (fr)
> mean (data,35,43)
[1] 69
> mean (data,63,70)
[1] 69
> mean (data,71,69)
[1] 69
> tabel = edit (data.frame())
> tabel = edit (data.frame(data))
>
> hist (data)
> hist (fr)
> >