Tugas UAS

Algoritma dan Struktur Data


Kontak : \(\downarrow\)
Email :
RPubs : https://rpubs.com/Garr
NIM : 20204920003

Impor/ekspor Csv

impor csv

data1 <- read.csv("input1.csv",sep = ",")
data2 <- read.csv("input2.csv",sep = ",")

data1
data2

ekspor csv

write.csv(data1,"output1.csv", row.names = FALSE)
write.csv(data2,"output2.csv", row.names = FALSE)

impor/ekspor Excel

memanggil direktori

pacman::p_load(readxl, writexl)

impor Excel

data3 <- read_excel("input3.xlsx")
data4 <- read_excel("input4.xls")

data3
data4

ekspor excel

write_xlsx(data3,"output3.xlsx")
write_xlsx(data4,"output4.xlsx")

impor/ekspor txt dan rds

impor txt dan rds

data5 <- read.table("input5.txt")
data6 <- source("input6.Rdmpd")
data7 <- readRDS("input7.rds")
data8 <- readRDS("input8.ascii")

data5
data6
## $value
##    id    name salary start_date      dept
## 1   1  Julian  623,3   1/1/2022        DS
## 2   2 Vanessa  515,2  9/23/2022        DS
## 3   3  Jeffry    611 11/15/2022        BA
## 4   4   Angel    729  5/11/2022        DA
## 5   5   Nikki 843,25  3/27/2022        DS
## 6   6  Ardifo    578  5/21/2022 Actuaries
## 7   7   Irene  722,5  7/30/2022 Actuaries
## 8   8   Kefas  632,8  6/17/2022        CA
## 9   9  Sherly  632,8  7/30/2022        DE
## 10 10   Bakti   <NA>   9/3/2018  Lecturer
## 
## $visible
## [1] FALSE
data7
data8

ekspor txt dan rds

write.table(data5,"output5.txt")
dump("data6","output6.Rdmp")
saveRDS(data7,"output7.rds")
saveRDS(data8,"output8.ascii", ascii = TRUE)

impor xml

memanggil package

library("XML")
library("methods")

Impor XML

data9 <- xmlParse("input9.xml")

dfdata9 <- xmlToDataFrame(data9)
dfdata9

ekspor XML

write.csv(dfdata9,"output9.xml")

impor/ekspor JSON

memanggil Package

library("jsonlite")

impor JSON

data10 <- fromJSON("input10.json")

dfdata10 <- as.data.frame(data10)
dfdata10

ekspor JSON

write_json(dfdata10,"output10.json")