LATIHAN DASAR SOFTWARE R

1.Pembuatan Dataframe dan Ringkasan Statistik

Membuat Dataframe

nama <- c("Asep", "Budi", "Cinta", "Dadang", "Erfan", "Fadil", "Gani", "Hani")

nilai <- c(94, 95, 96, 97, 98, 96, 95, 97)

df_nilai <- data.frame(Nama = nama, Nilai = nilai)

df_nilai

##     Nama Nilai
## 1   Asep    94
## 2   Budi    95
## 3  Cinta    96
## 4 Dadang    97
## 5  Erfan    98
## 6  Fadil    96
## 7   Gani    95
## 8   Hani    97

#Memeriksa Rata-rata

mean(df_nilai$Nilai)

## [1] 96

Menampilkan Ringkasan Statistik

summary(df_nilai)

##      Nama               Nilai   
##  Length:8           Min.   :94  
##  Class :character   1st Qu.:95  
##  Mode  :character   Median :96  
##                     Mean   :96  
##                     3rd Qu.:97  
##                     Max.   :98

2.Membuat Barisan 12 Elemen dengan Pengulangan

# Nilai awal
x <- 4

# Membuat vektor kosong
barisan <- numeric(12)
barisan[1] <- x

# Membentuk pola berulang
for(i in 2:12){
  if((i-1) %% 3 == 1){
    barisan[i] <- barisan[i-1] + 3
  } else if((i-1) %% 3 == 2){
    barisan[i] <- barisan[i-1] * 2
  } else {
    barisan[i] <- barisan[i-1] - 1
  }
}

barisan

##  [1]   4   7  14  13  16  32  31  34  68  67  70 140

3. Pembentukan Suatu Vektor dengan fungsi seq() dan re()

pola <- rep(seq(0, 6, by = 2), each = 2)

hasil <- rep(pola, times = 3)

hasil

##  [1] 0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6

4. Simulasi Pelemparan Dadu

set.seed(123)

simulasi <- sample(c(0,1),
                   size = 30,
                   replace = TRUE,
                   prob = c(0.45, 0.55))

simulasi

##  [1] 1 0 1 0 0 1 1 0 0 1 0 1 0 0 1 0 1 1 1 0 0 0 0 0 0 0 1 0 1 1

5. Ringkasan Data Penjualan UMKM

hari <- c("Senin", "Selasa", "Rabu", "Kamis")

jumlah_terjual <- c(45, 35, 50, 25)

harga_satuan <- c(25000, 25000, 25000, 25000)

total_pendapatan <- jumlah_terjual * harga_satuan

df_umkm <- data.frame(Hari = hari,
                      Jumlah_Terjual = jumlah_terjual,
                      Harga_Satuan = harga_satuan,
                      Total_Pendapatan = total_pendapatan)

df_umkm

##     Hari Jumlah_Terjual Harga_Satuan Total_Pendapatan
## 1  Senin             45        25000          1125000
## 2 Selasa             35        25000           875000
## 3   Rabu             50        25000          1250000
## 4  Kamis             25        25000           625000

Menampilkan Ringkasan

summary(df_umkm)

##      Hari           Jumlah_Terjual   Harga_Satuan   Total_Pendapatan 
##  Length:4           Min.   :25.00   Min.   :25000   Min.   : 625000  
##  Class :character   1st Qu.:32.50   1st Qu.:25000   1st Qu.: 812500  
##  Mode  :character   Median :40.00   Median :25000   Median :1000000  
##                     Mean   :38.75   Mean   :25000   Mean   : 968750  
##                     3rd Qu.:46.25   3rd Qu.:25000   3rd Qu.:1156250  
##                     Max.   :50.00   Max.   :25000   Max.   :1250000