R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot. ## Soal latihan nomor 1 ##Buat dataframe dengan kolom Nama dan Nilai (minimal 4 baris). Atur nilai pada kolom Nilai sehingga rata-rata (mean) dari nilai tersebut adalah 96.Selanjutnya, tampilkan ringkasan statistik dari dataframe tersebut menggunakan fungsi summary(

nama <- c("kibar","Rama","Abi","Bahar")
nilai <- c(94,98,96,96)

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

print(nilai_ssd)
##    Nama Nilai
## 1 kibar    94
## 2  Rama    98
## 3   Abi    96
## 4 Bahar    96
summary(nilai_ssd)
##      Nama               Nilai     
##  Length:4           Min.   :94.0  
##  Class :character   1st Qu.:95.5  
##  Mode  :character   Median :96.0  
##                     Mean   :96.0  
##                     3rd Qu.:96.5  
##                     Max.   :98.0

##soal latihan nomor2 Buat satu barisan sepanjang 12 elemen dengan aturan berulang +3 → ×2 → −1 dengan nilai awal 4

x <- numeric(12)
x[1] <- 4

pola <- c("+3", "*2", "-1")

for(i in 2:length(x)){
  
  aturan <- pola[(i-2) %% length(pola) + 1]
  
  if(aturan == "+3") x[i] <- x[i-1] + 3
  if(aturan == "*2") x[i] <- x[i-1] * 2
  if(aturan == "-1") x[i] <- x[i-1] - 1
  
}

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

##soal latihan nomor 3 Gunakan fungsi seq() dan rep() di R untuk membentuk satu vektor dengan hasil akhir sebagai berikut:0 0 2 2 4 4 6 6 0 0 2 2 4 4 6 6 0 0 2 2 4 4 6

vektor <- rep(seq(0,6,by=2), each=2, times=3)

vektor
##  [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

##soal latihan nomor 4 Lakukan simulasi pelemparan dadu sebanyak 30 kali menggunakan fungsi sample() di R, dengan ketentuan sebagai berikut: Hasil 0 memiliki peluang kemunculan 45% Hasil 1 memiliki peluang kemunculan 55% Gunakan set.seed() agar hasil simulasi dapat direproduks

set.seed(11)

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

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

##Soal latihan Nomor 5 Seorang pemilik UMKM mencatat data penjualan selama beberapa hari. Informasi yang dikumpulkan meliputi Hari, Jumlah Produk Terjual, Harga Satuan, Total Pendapatan. Buat sebuah dataframe dengan keempat kolom tersebut (minimal 4 baris), lalu tampilkan summary().

hari <- c("Senin","Selasa","Rabu","Kamis")
jumlah <- c(15,20,18,25)
harga <- c(10000,10000,10000,10000)

total <- jumlah * harga

data_umkm <- data.frame(
  Hari = hari,
  Jumlah_Produk_Terjual = jumlah,
  Harga_Satuan = harga,
  Total_Pendapatan = total
)

summary(data_umkm)
##      Hari           Jumlah_Produk_Terjual  Harga_Satuan   Total_Pendapatan
##  Length:4           Min.   :15.00         Min.   :10000   Min.   :150000  
##  Class :character   1st Qu.:17.25         1st Qu.:10000   1st Qu.:172500  
##  Mode  :character   Median :19.00         Median :10000   Median :190000  
##                     Mean   :19.50         Mean   :10000   Mean   :195000  
##                     3rd Qu.:21.25         3rd Qu.:10000   3rd Qu.:212500  
##                     Max.   :25.00         Max.   :10000   Max.   :250000