Tugas 3

Algoritma dan Struktur Data

Email             : diyasaryanugroho@gmail.com
RPubs            : https://rpubs.com/diyasarya/
Jurusan          : Statistika
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

---

1 Soal 1

• Buat sebuah list untuk menyimpan 5 orang teman dekatmu

listnamateman = list("Alipia", "Bagus", "Citra", "Dea", "Helmi")

• Pilihlah satu orang dari list tersebut yang menjadi teman paling dekatmu dengan menggunakan index

listnamateman = list("Alipia", "Bagus", "Citra", "Dea", "Helmi")

print(listnamateman[2])          # index 2 sebagai teman paling dekat

## [[1]]
## [1] "Bagus"

• Gantilah satu orang yang tidak begitu dekat denganmu dengan teman baru yang kamu temui baru-baru ini

listnamateman = list("Alipia", "Bagus", "Citra", "Dea", "Helmi")

listnamateman[1] = "Guruh"      # mengganti alipia menjadi guruh

print(listnamateman)

## [[1]]
## [1] "Guruh"
## 
## [[2]]
## [1] "Bagus"
## 
## [[3]]
## [1] "Citra"
## 
## [[4]]
## [1] "Dea"
## 
## [[5]]
## [1] "Helmi"

• Bagaimana caranya anda menghitung banyak teman yang ada dalam list tersebut

length(listnamateman)

## [1] 5

2 Soal 2

• Buatlah Tuple dengan 5 item didalamnya

tuple = tuple("Hari", "Ini", "Aku", "Akan", "Pergi")

• Perlihatkan cara Mengakses Nilai Tuple

library(sets)

tuple = tuple("Hari", "Ini", "Aku", "Akan", "Pergi")

print(tuple[3])      # Mengakses nilai tuple 3

## ("Aku")

• Bagaimana anda melakukan Slicing Nilai Tuple

tuple = tuple("Hari", "Ini", "Aku", "Akan", "Pergi")

print(tuple[3:5])   # Memotong tuple berdasarkan nilai 3 sampai 5

## ("Aku", "Akan", "Pergi")

• Nested Tuple

tuple = tuple("Hari", "Ini", "Aku", "Akan", "Pergi")
tuple1 = tuple("Saya", "Ingin", "Mengunjungi", "Rumah", "Nenek")
tuple2 = c(tuple, tuple1)

print(tuple2)

## ("Hari", "Ini", "Aku", "Akan", "Pergi", "Saya", "Ingin", "Mengunjungi",
##  "Rumah", "Nenek")

3 Soal 3

• Akses suatu nilai Item dari Dictionary

library(Dict)

## 
## Attaching package: 'Dict'

## The following object is masked from 'package:sets':
## 
##     %>%

biodata = dict(
  nama = "Diyas Arya Nugroho",
  umur = as.integer(18),
  tempat.tinggal = "Tangerang",
  riwayat.pendidikan = tuple(SD = "SDN Binong 2", 
                             SMP = "MTs Al-layyinah", 
                             SMA = "SMAN 4 Kab Tangerang"),
  pelajaran.kesukaan = list("Matematika", "Kimia", "Bahasa Inggris"),
  menikah = FALSE
  )

print(biodata$get('riwayat.pendidikan')['SMA'])

## (SMA = "SMAN 4 Kab Tangerang")

cat("Nama saya adalah :", biodata$get('nama'))

## Nama saya adalah : Diyas Arya Nugroho

• Ubah suatu Nilai Item pada Dictionary

biodata['pelajaran.kesukaan'][3] = "Bahasa Indonesia"     # Mengganti Bahasa Inggris menjadi Bahasa Indonesia
print(biodata$get('pelajaran.kesukaan'))

## [[1]]
## [1] "Matematika"
## 
## [[2]]
## [1] "Kimia"
## 
## [[3]]
## [1] "Bahasa Indonesia"

• Menambahkan Item ke Dictionary

biodata["tempat.tinggal"] = "Tangerang, Karawaci" 
print(biodata$get('tempat.tinggal'))

## [1] "Tangerang, Karawaci"

• Menghapus Item dari Dictionary

biodata$remove("tempat.tinggal")    # Menghapus item tempat tinggal
print(biodata$get('tempat.tinggal'))

## NULL

4 Soal 4

Silahkan untuk menemukan operasi Pengindeksan, Pengirisan, dan Subsetting Data Frame dengan Menggunakan R.

furnitur <- data.frame(kode = c(1:5),
                  Produk = c("Meja", "Bangku", "Lemari", "Kasur", "Kulkas"),
                  Harga = c("Rp799.999,00", "Rp459.999,00", "Rp1.798.999,00", "Rp1.999.999,00", "Rp10.965.000,00"),
                  Stock = c("565", "280", "179", "58", "26"),
                  Status = c(rep("Import", 3), rep("Tidak", 2)),
                  Kualitas = c("A", "B", "A", "B", "A")
                  )

furnitur[1,4]     # Ekstrak data di baris ke-1 dan kolom ke-4

## [1] "565"

furnitur[3:5,]  # Ekstrak lima baris pertama pada data

##   kode Produk           Harga Stock Status Kualitas
## 3    3 Lemari  Rp1.798.999,00   179 Import        A
## 4    4  Kasur  Rp1.999.999,00    58  Tidak        B
## 5    5 Kulkas Rp10.965.000,00    26  Tidak        A

furnitur$Produk  # Ekstrak kolom produk pada data

## [1] "Meja"   "Bangku" "Lemari" "Kasur"  "Kulkas"

subset(furnitur, select = c(2,5))    # Subset kolom kedua dan kelima

##   Produk Status
## 1   Meja Import
## 2 Bangku Import
## 3 Lemari Import
## 4  Kasur  Tidak
## 5 Kulkas  Tidak

5 Soal 5

Buatlah operasi Ganti Nama Variabel pada suatu Data Frame dengan menggunakan R.

names(furnitur)<- c("No",                # Merubah nama variabel
                    "Barang",
                    "Price",
                    "Persediaan",
                    "Status",
                    "Nilai"
)

furnitur

##   No Barang           Price Persediaan Status Nilai
## 1  1   Meja    Rp799.999,00        565 Import     A
## 2  2 Bangku    Rp459.999,00        280 Import     B
## 3  3 Lemari  Rp1.798.999,00        179 Import     A
## 4  4  Kasur  Rp1.999.999,00         58  Tidak     B
## 5  5 Kulkas Rp10.965.000,00         26  Tidak     A