ALGORITMA DAN STRUKTUR DATA

~Tugas 3~

Email             : trivenasamaliwu@gmail.com
RPubs            : https://rpubs.com/evelintrivena
Jurusan          : fisika medis
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

# Buat sebuah list untuk menyimpan 5 orang teman dekatmu
list=list("Fatma","Sharon","Novia","Yeni","Ainun")

# Pilihlah satu orang dari list tersebut yang menjadi teman paling dekatmu  dengan menggunakan index
print(list[1])

## [[1]]
## [1] "Fatma"

# Gantilah satu orang yang tidak begitu dekat denganmu dengan teman baru yang kamu temui baru-baru ini
list=list("Fatma","Sharon","Novia","Yeni","Ainun")
list[3]="Angel"

# Bagaimana caranya anda menghitung banyak teman yang ada dalam list tersebut
print(list)

## [[1]]
## [1] "Fatma"
## 
## [[2]]
## [1] "Sharon"
## 
## [[3]]
## [1] "Angel"
## 
## [[4]]
## [1] "Yeni"
## 
## [[5]]
## [1] "Ainun"

2 Buatlah contoh menyimpan sekumpulan tuple dengan R dan Python

library(sets)
# Membuat Tuple dengan 5 item
tuple1=tuple("Hutan","Gunung","Sawah","Laut","Bukit")
tuple2=tuple("Danau")

# Cara Mengakses nilai Tuple
print(tuple1[2])

## ("Gunung")

# Slicing nilai Tuple
tuple=tuple("Hutan","Gunung","Sawah","Laut","Bukit")
print(tuple1[3:5])

## ("Sawah", "Laut", "Bukit")

# Nested Tuple
tuple3=c(tuple1, tuple2)
print(tuple3)

## ("Hutan", "Gunung", "Sawah", "Laut", "Bukit", "Danau")

tuple4=rep(tuple1, 3)
print(tuple4)

## ("Hutan", "Gunung", "Sawah", "Laut", "Bukit", "Hutan", "Gunung",
##  "Sawah", "Laut", "Bukit", "Hutan", "Gunung", "Sawah", "Laut", "Bukit")

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

library(Dict)

## 
## Attaching package: 'Dict'

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

evelin = dict(
  nama = "Evelin Trivena S",
  umur = as.integer(17),
  tinggi_badan = (154.5), 
  minuman_favorite = list ("milk tea boba","yoghurt cimory","green tea"),
  vaksin_covid = FALSE,
  sosmed = tuple(instagram = "evelintryvena",
                 facebook = "Evelin Trivena"
                 )
)

# Mengakses isi dictionary
cat("Nama saya adalah", evelin$get('nama'))

## Nama saya adalah Evelin Trivena S

# Ubah suatu nilai item pada dictionary
evelin["nama"]="Evelin Trivena Samaliwu"

# Menghapus item dari dictionary
evelin$remove("sosmed")

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

saudara_R<-data.frame(kode=c(1:5),
nama=c("Join", "Shary", "Vena", "Christy", "Dhea"),
usia=c(19,26,17,11,18),
tanggal_lahir=as.Date(c("2001-12-11", "1995-02-19", "2003-12-20", "2009-12-19", "2002-02-12")),
perkerjaan=c("Rohaniawan","TK2D","Mahasiswa","Pelajar","Mahasiswa"), stringsAsFactors = F
)
print(saudara_R)

##   kode    nama usia tanggal_lahir perkerjaan
## 1    1    Join   19    2001-12-11 Rohaniawan
## 2    2   Shary   26    1995-02-19       TK2D
## 3    3    Vena   17    2003-12-20  Mahasiswa
## 4    4 Christy   11    2009-12-19    Pelajar
## 5    5    Dhea   18    2002-02-12  Mahasiswa

typeof(saudara_R)

## [1] "list"

class(saudara_R)

## [1] "data.frame"

saudara_R[3,4]

## [1] "2003-12-20"

saudara_R$usia

## [1] 19 26 17 11 18

saudara_R[,c('nama','perkerjaan')]

##      nama perkerjaan
## 1    Join Rohaniawan
## 2   Shary       TK2D
## 3    Vena  Mahasiswa
## 4 Christy    Pelajar
## 5    Dhea  Mahasiswa

saudara_R[1:3,]

##   kode  nama usia tanggal_lahir perkerjaan
## 1    1  Join   19    2001-12-11 Rohaniawan
## 2    2 Shary   26    1995-02-19       TK2D
## 3    3  Vena   17    2003-12-20  Mahasiswa

saudara_R[,2:4]

##      nama usia tanggal_lahir
## 1    Join   19    2001-12-11
## 2   Shary   26    1995-02-19
## 3    Vena   17    2003-12-20
## 4 Christy   11    2009-12-19
## 5    Dhea   18    2002-02-12

subset(saudara_R, select = usia)

##   usia
## 1   19
## 2   26
## 3   17
## 4   11
## 5   18

subset(saudara_R, select = 2)

##      nama
## 1    Join
## 2   Shary
## 3    Vena
## 4 Christy
## 5    Dhea

subset(saudara_R, select = c(2,3))

##      nama usia
## 1    Join   19
## 2   Shary   26
## 3    Vena   17
## 4 Christy   11
## 5    Dhea   18

subset(saudara_R, select = c(1:3))

##   kode    nama usia
## 1    1    Join   19
## 2    2   Shary   26
## 3    3    Vena   17
## 4    4 Christy   11
## 5    5    Dhea   18

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

perempuan<-saudara_R
names(perempuan)<-c("number",
                    "name",
                    "age",
                    "birth date",
                    "job")
perempuan

##   number    name age birth date        job
## 1      1    Join  19 2001-12-11 Rohaniawan
## 2      2   Shary  26 1995-02-19       TK2D
## 3      3    Vena  17 2003-12-20  Mahasiswa
## 4      4 Christy  11 2009-12-19    Pelajar
## 5      5    Dhea  18 2002-02-12  Mahasiswa