simpan = read.table("data4.1.csv", header = TRUE, sep = ",")
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    12    40     5
## 13    13    40     5
## 14    14    40     6
## 15    15    50     6
## 16    16    50    NA
## 17    17    50    NA
## 18    18    50    NA
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  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18
data_11  # menampilkan data1 atau data pada Tabel 4.1, dengan menghapus NA
##  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18
data_2   # menampilkan data2 atau data pada Tabel 4.3
##  [1] 10 10 10 20 20 30 30 30 30 30 30 40 40 40 50 50 50 50
data_21  # menampilkan data2 atau data pada Tabel 4.3, dengan menghapus NA
##  [1] 10 10 10 20 20 30 30 30 30 30 30 40 40 40 50 50 50 50
data_3   # menampilkan data3 atau data pada Tabel 4.9
##  [1]  1  2  2  3  3  3  3  3  4  4  4  5  5  6  6 NA NA NA
data_31  # menampilkan data3 atau data pada Tabel 4.9, dengan menghapus NA
##  [1] 1 2 2 3 3 3 3 3 4 4 4 5 5 6 6
## attr(,"na.action")
## [1] 16 17 18
## attr(,"class")
## [1] "omit"
library(psych)  # mengaktifkan package "psych" yang menyediakan fungsi describe()
## Warning: package 'psych' was built under R version 4.5.3
describe(data_11)  # menyajikan ukuran gejala pusat, letak, pencaran, kemiringan, dan kurtosis untukdata1
##    vars  n mean   sd median trimmed  mad min max range skew kurtosis   se
## X1    1 18  9.5 5.34    9.5     9.5 6.67   1  18    17    0     -1.4 1.26
describe(data_21)  # menyajikan ukuran gejala pusat, letak, pencaran, kemiringan, dan kurtosis untuk data2
##    vars  n  mean    sd median trimmed   mad min max range  skew kurtosis   se
## X1    1 18 31.67 13.83     30   31.88 14.83  10  50    40 -0.15    -1.23 3.26
describe(data_31)  # menyajikan ukuran gejala pusat, letak, pencaran, kemiringan, dan kurtosis untuk data3
##    vars  n mean   sd median trimmed  mad min max range skew kurtosis   se
## X1    1 15  3.6 1.45      3    3.62 1.48   1   6     5 0.14    -1.01 0.38