simpan=read.table("data4.1.csv",header=TRUE, sep=",") #membaca data4.1
simpan## data1.data2.data3
## 1 1;10;1
## 2 2;10;2
## 3 3;10;2
## 4 4;20;3
## 5 5;20;3
## 6 6;30;3
## 7 7;30;3
## 8 8;30;3
## 9 9;30;4
## 10 10;30;4
## 11 11;30;4
## 12 11;30;5
## 13 12;40;5
## 14 13;40;6
## 15 14;40;6
## 16 15;40;
## 17 16;50;
## 18 17;50;
## 19 18;50;data_1=simpan$data1 #data_1 menyimpan data1
data_11 = na.omit(data_1) #data_11 menyimpan data1, tanpa NA
data_2=simpan$data2 #data_2 menyimpan data2
data_21=na.omit(data_2) #data_21 menyimpan data2, tanpa NA
data_3=simpan$data3 #data_3 menyimpan data3
data_31=na.omit(data_3) #data_31 menyimpan data3, tanpa NA
data_1 #menampilkan data1 atau data pada Tabel 4.1## [1] "1;10;1" "2;10;2" "3;10;2" "4;20;3" "5;20;3" "6;30;3" "7;30;3"
## [8] "8;30;3" "9;30;4" "10;30;4" "11;30;4" "11;30;5" "12;40;5" "13;40;6"
## [15] "14;40;6" "15;40;" "16;50;" "17;50;" "18;50;"data_11 #menampilkan data1 atau data pada Tabel 4.1, dengan menghapus NA## [1] "1;10;1" "2;10;2" "3;10;2" "4;20;3" "5;20;3" "6;30;3" "7;30;3"
## [8] "8;30;3" "9;30;4" "10;30;4" "11;30;4" "11;30;5" "12;40;5" "13;40;6"
## [15] "14;40;6" "15;40;" "16;50;" "17;50;" "18;50;"data_2 #menampilkan data2 atau data pada Tabel 4.3## NULLdata_21 #menampilkan data2 atau data pada Tabel 4.3, dengan menghapus NA## NULLdata_3 #menampilkan data3 atau data pada Tabel 4.9## NULLdata_31 #menampilkan data3 atau data pada Tabel 4.9, dengan menghapus NA## NULLlibrary(psych)## Warning: package 'psych' was built under R version 4.5.3describe(data_11) #ukuran gejala pusat, letak, pencaran, kemiringan, kurtosis untuk data1## vars n mean sd median trimmed mad min max range skew kurtosis se
## X1* 1 19 10 5.63 10 10 7.41 1 19 18 0 -1.39 1.29
``` r
simpan = read.csv2("data.4.2.csv") #membaca data4.2, otomatis sep=";" dan desimal koma
simpan## jurusan.angka jurusan.label jenis.angka jenis.label IQ EQ
## 1 1 IPA 1 Laki-laki 110 95
## 2 1 IPA 1 Laki-laki 115 90
## 3 1 IPA 2 Perempuan 120 105
## 4 1 IPA 2 Perempuan 105 110
## 5 2 IPS 1 Laki-laki 100 100
## 6 2 IPS 1 Laki-laki 108 98
## 7 2 IPS 2 Perempuan 112 102
## 8 2 IPS 2 Perempuan 98 108
## 9 1 IPA 1 Laki-laki 118 92
## 10 1 IPA 2 Perempuan 122 100
## 11 2 IPS 1 Laki-laki 95 97
## 12 2 IPS 2 Perempuan 109 103str(simpan) #cek dulu tipe datanya## 'data.frame': 12 obs. of 6 variables:
## $ jurusan.angka: int 1 1 1 1 2 2 2 2 1 1 ...
## $ jurusan.label: chr "IPA" "IPA" "IPA" "IPA" ...
## $ jenis.angka : int 1 1 2 2 1 1 2 2 1 2 ...
## $ jenis.label : chr "Laki-laki" "Laki-laki" "Perempuan" "Perempuan" ...
## $ IQ : int 110 115 120 105 100 108 112 98 118 122 ...
## $ EQ : int 95 90 105 110 100 98 102 108 92 100 ...data_1 = as.numeric(simpan$data1) #data_1 menyimpan data1, dipaksa jadi angka
data_11 = na.omit(data_1) #data_11 menyimpan data1, tanpa NA
data_2 = as.numeric(simpan$data2) #data_2 menyimpan data2, dipaksa jadi angka
data_21 = na.omit(data_2) #data_21 menyimpan data2, tanpa NA
data_3 = as.numeric(simpan$data3) #data_3 menyimpan data3, dipaksa jadi angka
data_31 = na.omit(data_3) #data_31 menyimpan data3, tanpa NA
data_1## numeric(0)data_11## numeric(0)data_2## numeric(0)data_21## numeric(0)data_3## numeric(0)data_31## numeric(0)library(doBy)## Warning: package 'doBy' was built under R version 4.5.3summaryBy(IQ + EQ ~ jurusan.label + jenis.label, data = simpan, FUN = function(x)
{ c(ratarata = mean(x), standar_deviasi = sd(x), jumlah=sum(x) ) } )## jurusan.label jenis.label IQ.ratarata IQ.standar_deviasi IQ.jumlah
## 1 IPA Laki-laki 114.3333 4.041452 343
## 2 IPA Perempuan 115.6667 9.291573 347
## 3 IPS Laki-laki 101.0000 6.557439 303
## 4 IPS Perempuan 106.3333 7.371115 319
## EQ.ratarata EQ.standar_deviasi EQ.jumlah
## 1 92.33333 2.516611 277
## 2 105.00000 5.000000 315
## 3 98.33333 1.527525 295
## 4 104.33333 3.214550 313```