Tugas 3

Algoritma dan Struktur data

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

---

1 Membuat Program dengan List R dan Python

1.1 Buat sebuah list untuk menyimpan 5 orang teman dekatmu

list0 = list()                                              # Membuat List kosong
list5 = list("Ami", "Amu", "Ame", "Ama", "Amo")   # Membuat List berisi 5 item

print(list5)

## [[1]]
## [1] "Ami"
## 
## [[2]]
## [1] "Amu"
## 
## [[3]]
## [1] "Ame"
## 
## [[4]]
## [1] "Ama"
## 
## [[5]]
## [1] "Amo"

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

list5 = list("Ami", "Amu", "Ame", "Ama", "Amo")   
print(list5[3])                                             # Print nilai pada index 3

## [[1]]
## [1] "Ame"

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

list5 = list("Ami", "Amu", "Ame", "Ama", "Amo")
list5[4] = "Olaf"                                         # Mengganti item Ama menjadi Olaf

print(list5)

## [[1]]
## [1] "Ami"
## 
## [[2]]
## [1] "Amu"
## 
## [[3]]
## [1] "Ame"
## 
## [[4]]
## [1] "Olaf"
## 
## [[5]]
## [1] "Amo"

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

length(list5)                                               # Menghitung banyak teman yang berada di dalam List

## [1] 5

2 Buatlah contoh menyimpan sekumpulan tuple dengan R dan Python, dengan mengikuti instruksi berikut

2.1 Buatlah Tuple dengan 5 item didalamnya

library(sets)                                               # Panggil library sets terlebih dulu
tuple0 = tuple()                                            # Membuat isi tuple (kosong)
tuple1 = tuple("dewa","kekal","dan","tanah","keabadian")
    # membuat isi tuple 5 item
tuple2 = tuple("dunia","di","bawah","cahaya","rembulan")
    # membuat isi tumple 5 item

2.2 Perlihatkan cara Mengakses Nilai Tuple

print(tuple1)

## ("dewa", "kekal", "dan", "tanah", "keabadian")

    #mengakses tuple 1
print(tuple2)

## ("dunia", "di", "bawah", "cahaya", "rembulan")

print(tuple2[5])                                            # Mengakses nilai 5 pada tuple2

## ("rembulan")

2.3 Bagaimana anda melakukan Slicing Nilai Tuple

print(tuple2[2:5])                                          # Memotong tuple 2 berdasarkan order

## ("di", "bawah", "cahaya", "rembulan")

2.4 Nestled Tuple

tuple3 = rep(tuple2, 7)                                     # Mengisi tuple3 dengan tuple2 dan diulang 7 kali
print(tuple3)

## ("dunia", "di", "bawah", "cahaya", "rembulan", "dunia", "di", "bawah",
##  "cahaya", "rembulan", "dunia", "di", "bawah", "cahaya", "rembulan",
##  "dunia", "di", "bawah", "cahaya", "rembulan", "dunia", "di", "bawah",
##  "cahaya", "rembulan", "dunia", "di", "bawah", "cahaya", "rembulan",
##  "dunia", "di", "bawah", "cahaya", "rembulan")

tuple4 = c(tuple1,tuple2)                                  # Mengisi tuple4 dengan tuple1 dan tuple2
print(tuple4)

## ("dewa", "kekal", "dan", "tanah", "keabadian", "dunia", "di", "bawah",
##  "cahaya", "rembulan")

2.5 Unpacking Sequence

tuple1 = tuple("dewa","kekal","dan","tanah","keabadian")
names (tuple1) = c("index1", "index2", "index3", "index4", "index5")
print(tuple1)

## (index1 = "dewa", index2 = "kekal", index3 = "dan", index4 = "tanah",
##  index5 = "keabadian")

3 Buatlah contoh menyimpan sekumpulan Dictionary dengan R dan Python, yang memuat type data float, integer, character, dan logical, list, tuple, dictionary dengan mengikuti instruksi berikut

3.1 Akses suatu nilai Item dari Dictionary

library(Dict)                                               # Mengaktifkan library Dict

## 
## Attaching package: 'Dict'

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

Permana = dict(
  nama = "Garry Julius",
  # Memasukkan nama pada dict
  
  umur = as.integer(19),
  # Memasukkan umur pada dict
  
  hobi = list("Bermain", "Berenang", "membaca"),
  # Memasukkan List hobi
  
  asal = ("Bandar Lampung"),
  # memasukan tempat kelahiran
  
  menikah = FALSE,
  
  sosmed = tuple(instagram= "boring.garr",
                 facebook= "julius.garry")
  )

cat("Nama saya adalah:", Permana$get('nama'))             # Mengakses nama pada dict Permana

## Nama saya adalah: Garry Julius

print(Permana$get('sosmed')['instagram'])                   # Mengakses sosmed instagram

## (instagram = "boring.garr")

3.2 Menambah atau Mengubah suatu Nilai Item pada Dictionary

Permana["nama"] = "Garry Julius Permana"                 # Mengubah nilai item dictionary
print(Permana$get('nama'))

## [1] "Garry Julius Permana"

3.3 Menghapus item dalam Dictionary

Permana$remove("asal")                                  # Mengapus item asal pada dictionary 
print(Permana)

## # A tibble: 5 x 2
##   key     value     
##   <chr>   <list>    
## 1 hobi    <list [3]>
## 2 menikah <lgl [1]> 
## 3 nama    <chr [1]> 
## 4 sosmed  <tuple>   
## 5 umur    <int [1]>

4 Silahkan untuk menemukan operasi Pengindeksan, Pengirisan, dan Subsetting Data Frame dengan Menggunkan R dan Python.

df1_R <- data.frame(nomor =c(1:5),
                    "nama"
=c("Ei","Yoimiya","Ayaka","Yae","Kokomi"),
                    "Jabatan"
=c("direktur","Marketing","HRD","Sekretaris","manajer"),
                    "Gaji"
=c("216 juta","4 juta","15 juta","10 juta","25 juta"),
                    "alamat"
=c("Raiden","Naganohara","Kamisato","Guuji","Sangonomiya")
)
print(df1_R)

##   nomor    nama    Jabatan     Gaji      alamat
## 1     1      Ei   direktur 216 juta      Raiden
## 2     2 Yoimiya  Marketing   4 juta  Naganohara
## 3     3   Ayaka        HRD  15 juta    Kamisato
## 4     4     Yae Sekretaris  10 juta       Guuji
## 5     5  Kokomi    manajer  25 juta Sangonomiya

df2_R <- data.frame(nomor =c(6:10),
                    "nama"
=c("Jean","Lisa","kaeya","Eula","Barbara"),
                    "Jabatan"
=c("Wakil pimpinan","Pustakawan","Analis","Pengumpul Data","Penyambut Tamu"),
                    "Gaji"
=c("170 juta","6 juta","19 juta","23 juta","4 juta"),
                    "alamat"
=c("Gunhilder","Minci","Alberich","Lawrence","Pegg")
)
print(df2_R)

##   nomor    nama        Jabatan     Gaji    alamat
## 1     6    Jean Wakil pimpinan 170 juta Gunhilder
## 2     7    Lisa     Pustakawan   6 juta     Minci
## 3     8   kaeya         Analis  19 juta  Alberich
## 4     9    Eula Pengumpul Data  23 juta  Lawrence
## 5    10 Barbara Penyambut Tamu   4 juta      Pegg

4.1 Penggabungan 2 frame

df3_R = rbind(df1_R,df2_R) # menggabungkan data frame 1 dan 2

4.2 indeks data frame

print(df3_R)

##    nomor    nama        Jabatan     Gaji      alamat
## 1      1      Ei       direktur 216 juta      Raiden
## 2      2 Yoimiya      Marketing   4 juta  Naganohara
## 3      3   Ayaka            HRD  15 juta    Kamisato
## 4      4     Yae     Sekretaris  10 juta       Guuji
## 5      5  Kokomi        manajer  25 juta Sangonomiya
## 6      6    Jean Wakil pimpinan 170 juta   Gunhilder
## 7      7    Lisa     Pustakawan   6 juta       Minci
## 8      8   kaeya         Analis  19 juta    Alberich
## 9      9    Eula Pengumpul Data  23 juta    Lawrence
## 10    10 Barbara Penyambut Tamu   4 juta        Pegg

4.3 dimensi data frame

dim(df3_R)  #memeriksa dimensi data frame

## [1] 10  5

4.4 struktur data frame

str(df3_R)  #memeriksa strukrut data frame

## 'data.frame':    10 obs. of  5 variables:
##  $ nomor  : int  1 2 3 4 5 6 7 8 9 10
##  $ nama   : chr  "Ei" "Yoimiya" "Ayaka" "Yae" ...
##  $ Jabatan: chr  "direktur" "Marketing" "HRD" "Sekretaris" ...
##  $ Gaji   : chr  "216 juta" "4 juta" "15 juta" "10 juta" ...
##  $ alamat : chr  "Raiden" "Naganohara" "Kamisato" "Guuji" ...

4.5 summary data frame

summary(df3_R)  #summary statistik data frame

##      nomor           nama             Jabatan              Gaji          
##  Min.   : 1.00   Length:10          Length:10          Length:10         
##  1st Qu.: 3.25   Class :character   Class :character   Class :character  
##  Median : 5.50   Mode  :character   Mode  :character   Mode  :character  
##  Mean   : 5.50                                                           
##  3rd Qu.: 7.75                                                           
##  Max.   :10.00                                                           
##     alamat         
##  Length:10         
##  Class :character  
##  Mode  :character  
##                    
##                    
## 

5 Buatlah operasi Ganti Nama Variabel pada suatu Data Frame dengan menggunakan R dan Python

df2_R<-df1_R                                  
# Merubah nama data frame df1_R menjadi df2_R
names(df2_R)<-c("Kode",                       
                   "Nama",
                   "Jabatan",
                   "Gaji",
                   "Alamat")
# Merubah nama variable pada data frame df2_R

print(df2_R)

##   Kode    Nama    Jabatan     Gaji      Alamat
## 1    1      Ei   direktur 216 juta      Raiden
## 2    2 Yoimiya  Marketing   4 juta  Naganohara
## 3    3   Ayaka        HRD  15 juta    Kamisato
## 4    4     Yae Sekretaris  10 juta       Guuji
## 5    5  Kokomi    manajer  25 juta Sangonomiya