tugas pratikum 1 riset pasar

nama_vector <- c(5, FALSE, "true", "8.3", "Statistika")
nama_vector

## [1] "5"          "FALSE"      "true"       "8.3"        "Statistika"

class(nama_vector)

## [1] "character"

contoh_list <- list(5, FALSE, "true", "8.3", "Statistika")
contoh_list

## [[1]]
## [1] 5
## 
## [[2]]
## [1] FALSE
## 
## [[3]]
## [1] "true"
## 
## [[4]]
## [1] "8.3"
## 
## [[5]]
## [1] "Statistika"

kelompok_kkn <- data.frame(
  nama = c("Andi", "Budi", "Citra", "Dewi", "Eko", "Fani", "Gita", "Hana", "Ira", "Jaka"),
  nim = c("001", "002", "003", "004", "005", "006", "007", "008", "009", "090"),
  prodi = rep("Statistika", 10)
)

# Menampilkan tabel
print(kelompok_kkn)

##     nama nim      prodi
## 1   Andi 001 Statistika
## 2   Budi 002 Statistika
## 3  Citra 003 Statistika
## 4   Dewi 004 Statistika
## 5    Eko 005 Statistika
## 6   Fani 006 Statistika
## 7   Gita 007 Statistika
## 8   Hana 008 Statistika
## 9    Ira 009 Statistika
## 10  Jaka 090 Statistika

# Eksperimen Pemanggilan
# 1. Kolom (Nama)
kelompok_kkn$nama 

##  [1] "Andi"  "Budi"  "Citra" "Dewi"  "Eko"   "Fani"  "Gita"  "Hana"  "Ira"  
## [10] "Jaka"

# 2. Baris ke-1
kelompok_kkn[1, ] 

##   nama nim      prodi
## 1 Andi 001 Statistika

# 3. Elemen Spesifik (Baris 10, Kolom 2)
kelompok_kkn[10, 2]

## [1] "090"

data_kotor <- data.frame(
  id = 1:5,
  nilai = c(80, NA, 75, NA, 90)
)

# Menampilkan posisi NA
is.na(data_kotor)

##         id nilai
## [1,] FALSE FALSE
## [2,] FALSE  TRUE
## [3,] FALSE FALSE
## [4,] FALSE  TRUE
## [5,] FALSE FALSE

# Menghitung total NA
sum(is.na(data_kotor))

## [1] 2