Algoritma & Struktur Data

~ Tugas 6 ~


Kontak : \(\downarrow\)
Email
Instagram https://www.instagram.com/jeremiheriyand/
RPubs https://rpubs.com/jeremiheriyandi23/

Pendahuluan

Terkoneksi dengan data adalah sesuatu yang sangat dasar dalam pengolahan data (data science) Pada Kejadian ini akan di Tunjukan proses antarmuka data yang paling simpel dan sederhana dengan R sebagai aplikasi yang di gunakan ,secara umum R dapat membaca data dari file yang tersimpan di dalam maupun di luar Direktorinya. Selain itu, R juga bisa menyimpan dan dapat membaca data dalam berbagai format file contohnya seperti csv,excel,txt,rds,XML,json dan yang lain nya # Impor/Ekspor CSV Ada beberapa cara yang bisa dilakukan untuk melakukan impor/expor data dengan menggunakan R. Berikut ini penjelasannya , ditunjukan ada 3 cara yang sering digunakan dalam proses antarmuka data.

Cara 1

Pertama-tama kita harus memastikan direktori kerja dalam koneksi yang tepat dan benar , memeriksa dengan menggunakan cara fungsi getwd(). Kemudian, kita dapat mengatur direktori kerja baru menggunakan fungsi setwd().

print(getwd())                                                                                              #  cetak direktori kerja R
## [1] "C:/Users/e7ils/OneDrive/Dokumen/data algo"
getwd()                                                                                                     #  cetak direktori kerja R
## [1] "C:/Users/e7ils/OneDrive/Dokumen/data algo"
setwd(getwd())                                                                                              #  setting direktori
# Berikutnya, proses impor data dari CSV dengan memakai fungsi read.csv().

dataalgo1 <-read.csv("input/input1.csv",sep = ",")                                                          # format pemisah koma
dataalgo2 <-read.csv("input/input2.csv",sep = ";")                                                          # format pemisah titik koma

# Saat kita ingin melakukan expor data (simpan)  di dalam direktori yang kita mau maka dapat diproses  dengan menggunakan fungsi write.csv() untuk format data dengan pemisah koma (",") dan fungsi write.csv2() untuk format data dengan pemisah semicolon (";").

write.csv(dataalgo1,"output/output1.csv", row.names = FALSE)  
write.csv2(dataalgo2,"output/output2.csv", row.names = FALSE)

Cara 2

Jika pembaca sekalian lebih menyukai koneksi direktori secara automatis, cara pilihan ini sepertinya adalah pilihan yang yang lebih bijak dan lumayan praktis.

#setting direktori
(WD <- getwd())
## [1] "C:/Users/e7ils/OneDrive/Dokumen/data algo"
if (!is.null(WD)) setwd(WD)


#impor data
dataalgo1 <- read.csv(file.path(WD, 'input', 'input1.csv'))
dataalgo2 <- read.csv(file.path(WD, 'input', 'input2.csv'))

# ekspor data
write.csv(dataalgo1, file.path(WD, 'output', 'output1.csv'), row.names = FALSE)
write.csv(dataalgo2, file.path(WD, 'output', 'output2.csv'), row.names = FALSE)

Cara 3

ini merupakan langkah alternatif untuk kita agar lebih nyaman untuk memilih data yang tersimpan di dalam komputer (PC) ataupun laptop dengan tidak harus melakukan pengaturan direktori terlebih dahulu sebelum melakukan proses impor data.

df3 <- read.csv(file.choose())

## Catatan: Proses untuk melakukan impor/eskpor data selanjutnya akan dilakukan dengan cara 1 satu saja.

Impor/Ekspor Excel

Microsoft Excel merupakan program spreadsheet yang paling sering dan lumayan banyak dipakai yang menyimpan data dalam format .xls atau .xlsx. R dapat langsung membaca dari file-file ini menggunakan paket readxl.

# install.packages(c("readxl", "writexl"))          # install `readxl & writexl` 
pacman::p_load(readxl, writexl)                     # load `readxl & writexl`

# impor data
dataalgo3<-read_excel("input/input4.xls")           # impor data xls (97-2003)
dataalgo4<-read_excel("input/input3.xlsx",sheet=1)  # impor data xlsx (2003-up)

# ekspor data
write_xlsx(dataalgo3,"output/output3.xls") 
write_xlsx(dataalgo4,"output/output4.xlsx")

Impor/Ekspor TXT and RDS

Format data yang paling umum dan paling yang sering dipakai untuk melakukan impor/ekspor data ialah file CSV dan XLSX. Namun sayangnya, membutuhkan ukuran file CSV atau XLSX cendrung lebih besar dibandingkan dengan format lainya seperti TXT atau file biner R (RDS). Sehingga, ini dapat membutuhkan sekiranya tambahan waktu pada saat kita akan melakukan impor/ekspor data. Sedikit saran, yang saya rekomendasikan dalam hal ini adalah mengimpor dan melakukan ekspor data tersebut dengan format TXT atau binary.

# impor data
dataalgo5 <- read.table("input/input5.txt")               # format TXT (notepad)
dataalgo6 <- source("input/input6.Rdmpd")                 # format TXT (Rdmpd)       
dataalgo7 <- readRDS("input/input7.rds")                  # format binary RDS       
dataalgo8 <- readRDS("input/input8.ascii")                # format binary ASCII  

# ekspor data
write.table(dataalgo5,"output/output5.txt")                
dump("dataalgo6", "output/output6.Rdmpd")                    
saveRDS(dataalgo7, "output/output7.rds")                      
saveRDS(dataalgo7, "output/output8.ascii", ascii=TRUE)


## Catatan: Format binary sangat lazim dan umum digunakan untuk melakukan ringkasan terhadap  file yang berukuran besar, terutama pada saat menggunakan sistem kontrol (API) seperti halnya Git.

Impor/Ekspor XML

XML adalah suatu kumpulan beragam format file,data di World Wide Web, intranet, dan di situs atau tempat yang lainnya menggunakan teks ASCII standar. XML merupakan sebuah singkatan dari eXtensible Markup Language. Untuk penjelasan lebih lengkap kalian dapat menemukannya di Youtube

Pada dasarnya XML sangatlah mirip dengan HTML, dimana sintak-sintaknya berisi markup. Tetapi, perlu diingat bahwa XML tidaklah sama dengan hal tag markup HTML yang menjelaskan dalam laman struktur datanya terdapat dalam file tersebut. Kalian dapat memperhatikan video penjelasan mengenai HTML yang terdapat di Youtube

Untuk Selanjutnya, mari kita lakukan impor/ekspor data dengan format XML.

library("XML")                                   # load paket XML 
library("kulife")                                # load paket kulife
library("methods")                               # paket kondisional

dataalgo9<- xmlParse("input/input9.xml")         # impor data XML
xml_df <- xmlToDataFrame(dataalgo9)              # konversi ke Dataframe
write.xml(xml_df, "output/output9.xml")          # ekspor data XML

Impor/Ekspor JSON

File JSON dapat menyimpan data sebagai teks di dalam suatu format yang bisa dibaca manusia. Json merupakan sebuah singkatan dari JavaScript Object Notation. R juga dapat membaca file di JSON menggunakan paket jsonlite. Selengkapnya kalian dapat melihat tentang JSON di Youtube.

library("jsonlite")                              # load paket JSON

dataalgo10 <-fromJSON("input/input10.json")      # impor data
json_df <- as.data.frame(dataalgo10)             # konversi ke Dataframe
write_json(json_df, "output/output10.json")      # ekspor data JSON

Impor Data dari Web

banyak website yang menyediakan data untuk digunakan oleh penggunanya. Dengan menggunakan program R, kita dapat melakukan ekstrak data secara spesifik dari situs web tersebut yang secara terprogram. Pada kali ini , saya mau menunjukkan contoh bagaimana cara mengimpor data dari repositori GitHub, namun Anda dapat melakukan hal yang sama dengan masuk ke dalam situs web ataupun juga repositori lain.

CSV

web_csv <- read.csv("https://github.com/Bakti-Siregar/dataset/raw/master/Bookdown-Data-Science-for-Beginners/csv1.csv")

XLSX

library(rio)                          # impor data dari github
install_formats()                     # periksa auto paket yang disarankan
## [1] TRUE
web_xlsx <-rio::import("https://github.com/Bakti-Siregar/dataset/blob/master/Bookdown-Data-Science-for-Beginners/xlsx1.xlsx?raw=true")

Basis Data R

Sistem basis data merupakan data relasional yang tersimpan dalam format yang dinormalisasikan. Sehingga, untuk melakukan proses komputasi statistik kita pasti membutuhkan query SQL yang sangat canggih dan kompleks. Tetapi R dapat terhubung dengan mudah ke banyak database relasional seperti MySql, Oracle, SQL Server, dll. Kemudian biasanya, kita akan mengubah basis data tersebut menjadi sebuah bingkai data (data frame). Setelah data sudah ada dan tersedia di lingkungan R, selanjutnya dimanipulasi atau dilakukan analisis lebih lanjut.

Catatan: Kita akan mempelajari bagian ini di bagian khusus yang disebut “Sistem Basis Data dengan R” pada semester berikutnya.

Menambang Data Web

Pengikisan data dari web (Webscraping Data) merupakan sebuah proses dengan menggunakan bot untuk mengekstrakan konten dan data dari situs web. Tidak sama seperti screen scraping, yang hanya menyalin piksel yang ditampilkan di layar, web scraping dapat mengekstrak kode HTML yang mendasarinya yang berada pada dasarnya disimpan dalam database. Pengikisan data ini dapat mereplikasikan semua konten yang ada dari berbagai web yang telah di tuju.

Catatan: Kita akan mempelajari bagian ini di bagian khusus yang disebut “Ilmu Data Terapan”.

LS0tDQp0aXRsZTogIkFsZ29yaXRtYSAmIFN0cnVrdHVyIERhdGEiDQpzdWJ0aXRsZTogIn4gVHVnYXMgNiB+Ig0KYXV0aG9yOiAiSmVyZW1pIGhlcnlhbmRpIHNhdWRpIg0KZGF0ZTogICJgciBmb3JtYXQoU3lzLkRhdGUoKSwgJyVCICVkLCAlWScpYCINCm91dHB1dDoNCiAgcm1kZm9ybWF0czo6cm9ib2Jvb2s6ICAgIyBodHRwczovL2dpdGh1Yixjb20vanViYS9ybWRmb3JtYXRzDQogICAgc2VsZl9jb250YWluZWQ6IHRydWUNCiAgICB0aHVtYm5haWxzOiB0cnVlDQogICAgbGlnaHRib3g6IHRydWUNCiAgICBnYWxsZXJ5OiB0cnVlDQogICAgbGliX2RpcjogbGlicw0KICAgIGRmX3ByaW50OiAicGFnZWQiDQogICAgY29kZV9mb2xkaW5nOiAic2hvdyINCiAgICBjb2RlX2Rvd25sb2FkOiB5ZXMNCiAgICBjc3M6ICJzdHlsZS5jc3MiDQoNCi0tLQ0KDQpgYGB7ciBpbmNsdWRlPUZBTFNFfQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGNsYXNzLnNvdXJjZSA9ICJub2NvcHkiLA0KICAgICAgICAgICAgICAgICAgICAgIGNsYXNzLm91dHB1dCA9ICJub2NvcHkiLA0KICAgICAgICAgICAgICAgICAgICAgIG1lc3NhZ2UgPSBGLA0KICAgICAgICAgICAgICAgICAgICAgIHdhcm5pbmcgPSBGKQ0KDQpsaWJyYXJ5KHJldGljdWxhdGUpDQpsaWJyYXJ5KFJjcHApDQoNCmBgYA0KDQo8YnI+DQoNCjxpbWcgc3R5bGU9ImZsb2F0OiByaWdodDsgbWFyZ2luOiAtNTBweCA1MHB4IDBweCA1MHB4OyB3aWR0aDoyNSUiIHNyYz0ibG9nbyBtYXRhbmEucG5nIi8+DQoNCnwNCjotLS0tIHw6LS0tLQ0KKipLb250YWsqKnwgKio6ICRcZG93bmFycm93JCoqDQpFbWFpbHwgbXVnZW1pc2F1c2FuMDVAZ21haWwuY29tDQpJbnN0YWdyYW0gfCBodHRwczovL3d3dy5pbnN0YWdyYW0uY29tL2plcmVtaWhlcml5YW5kLyANClJQdWJzICB8IGh0dHBzOi8vcnB1YnMuY29tL2plcmVtaWhlcml5YW5kaTIzLyANCg0KKioqDQojIFBlbmRhaHVsdWFuDQpUZXJrb25la3NpIGRlbmdhbiBkYXRhIGFkYWxhaCBzZXN1YXR1IHlhbmcgc2FuZ2F0IGRhc2FyIGRhbGFtIHBlbmdvbGFoYW4gZGF0YSAoZGF0YSBzY2llbmNlKSBQYWRhIEtlamFkaWFuIGluaSBha2FuIGRpIFR1bmp1a2FuIHByb3NlcyBhbnRhcm11a2EgZGF0YSB5YW5nIHBhbGluZyBzaW1wZWwgZGFuIHNlZGVyaGFuYSBkZW5nYW4gUiBzZWJhZ2FpIGFwbGlrYXNpIHlhbmcgZGkgZ3VuYWthbiAsc2VjYXJhIHVtdW0gUiBkYXBhdCBtZW1iYWNhIGRhdGEgZGFyaSBmaWxlIHlhbmcgdGVyc2ltcGFuIGRpIGRhbGFtIG1hdXB1biBkaSBsdWFyIERpcmVrdG9yaW55YS4gU2VsYWluIGl0dSwgUiBqdWdhIGJpc2EgbWVueWltcGFuIGRhbiBkYXBhdCBtZW1iYWNhIGRhdGEgZGFsYW0gYmVyYmFnYWkgZm9ybWF0IGZpbGUgY29udG9obnlhIHNlcGVydGkgY3N2LGV4Y2VsLHR4dCxyZHMsWE1MLGpzb24gZGFuIHlhbmcgbGFpbiBueWENCiMgSW1wb3IvRWtzcG9yIENTVg0KQWRhIGJlYmVyYXBhIGNhcmEgeWFuZyBiaXNhICBkaWxha3VrYW4gdW50dWsgbWVsYWt1a2FuIGltcG9yL2V4cG9yIGRhdGEgZGVuZ2FuIG1lbmdndW5ha2FuIFIuIEJlcmlrdXQgaW5pIHBlbmplbGFzYW5ueWEgLCBkaXR1bmp1a2FuIGFkYSAzIGNhcmEgeWFuZyBzZXJpbmcgZGlndW5ha2FuIGRhbGFtIHByb3NlcyBhbnRhcm11a2EgZGF0YS4NCg0KIyMgQ2FyYSAxDQpQZXJ0YW1hLXRhbWEga2l0YSBoYXJ1cyBtZW1hc3Rpa2FuIGRpcmVrdG9yaSBrZXJqYSBkYWxhbSBrb25la3NpIHlhbmcgdGVwYXQgZGFuIGJlbmFyICwgbWVtZXJpa3NhIGRlbmdhbiBtZW5nZ3VuYWthbiBjYXJhIGZ1bmdzaSBnZXR3ZCgpLiBLZW11ZGlhbiwga2l0YSBkYXBhdCBtZW5nYXR1ciBkaXJla3Rvcmkga2VyamEgYmFydSBtZW5nZ3VuYWthbiBmdW5nc2kgc2V0d2QoKS4NCmBgYHtyfQ0KcHJpbnQoZ2V0d2QoKSkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyAgY2V0YWsgZGlyZWt0b3JpIGtlcmphIFINCmdldHdkKCkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgIGNldGFrIGRpcmVrdG9yaSBrZXJqYSBSDQpzZXR3ZChnZXR3ZCgpKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjICBzZXR0aW5nIGRpcmVrdG9yaQ0KIyBCZXJpa3V0bnlhLCBwcm9zZXMgaW1wb3IgZGF0YSBkYXJpIENTViBkZW5nYW4gbWVtYWthaSBmdW5nc2kgcmVhZC5jc3YoKS4NCg0KZGF0YWFsZ28xIDwtcmVhZC5jc3YoImlucHV0L2lucHV0MS5jc3YiLHNlcCA9ICIsIikgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBmb3JtYXQgcGVtaXNhaCBrb21hDQpkYXRhYWxnbzIgPC1yZWFkLmNzdigiaW5wdXQvaW5wdXQyLmNzdiIsc2VwID0gIjsiKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIGZvcm1hdCBwZW1pc2FoIHRpdGlrIGtvbWENCg0KIyBTYWF0IGtpdGEgaW5naW4gbWVsYWt1a2FuIGV4cG9yIGRhdGEgKHNpbXBhbikgIGRpIGRhbGFtIGRpcmVrdG9yaSB5YW5nIGtpdGEgbWF1IG1ha2EgZGFwYXQgZGlwcm9zZXMgIGRlbmdhbiBtZW5nZ3VuYWthbiBmdW5nc2kgd3JpdGUuY3N2KCkgdW50dWsgZm9ybWF0IGRhdGEgZGVuZ2FuIHBlbWlzYWgga29tYSAoIiwiKSBkYW4gZnVuZ3NpIHdyaXRlLmNzdjIoKSB1bnR1ayBmb3JtYXQgZGF0YSBkZW5nYW4gcGVtaXNhaCBzZW1pY29sb24gKCI7IikuDQoNCndyaXRlLmNzdihkYXRhYWxnbzEsIm91dHB1dC9vdXRwdXQxLmNzdiIsIHJvdy5uYW1lcyA9IEZBTFNFKSAgDQp3cml0ZS5jc3YyKGRhdGFhbGdvMiwib3V0cHV0L291dHB1dDIuY3N2Iiwgcm93Lm5hbWVzID0gRkFMU0UpDQpgYGANCiMjIENhcmEgMg0KSmlrYSBwZW1iYWNhIHNla2FsaWFuIGxlYmloIG1lbnl1a2FpIGtvbmVrc2kgZGlyZWt0b3JpIHNlY2FyYSBhdXRvbWF0aXMsIGNhcmEgcGlsaWhhbiAgaW5pIHNlcGVydGlueWEgYWRhbGFoIHBpbGloYW4geWFuZyB5YW5nIGxlYmloIGJpamFrIGRhbiBsdW1heWFuIHByYWt0aXMuDQpgYGB7cn0NCiNzZXR0aW5nIGRpcmVrdG9yaQ0KKFdEIDwtIGdldHdkKCkpDQppZiAoIWlzLm51bGwoV0QpKSBzZXR3ZChXRCkNCg0KDQojaW1wb3IgZGF0YQ0KZGF0YWFsZ28xIDwtIHJlYWQuY3N2KGZpbGUucGF0aChXRCwgJ2lucHV0JywgJ2lucHV0MS5jc3YnKSkNCmRhdGFhbGdvMiA8LSByZWFkLmNzdihmaWxlLnBhdGgoV0QsICdpbnB1dCcsICdpbnB1dDIuY3N2JykpDQoNCiMgZWtzcG9yIGRhdGENCndyaXRlLmNzdihkYXRhYWxnbzEsIGZpbGUucGF0aChXRCwgJ291dHB1dCcsICdvdXRwdXQxLmNzdicpLCByb3cubmFtZXMgPSBGQUxTRSkNCndyaXRlLmNzdihkYXRhYWxnbzIsIGZpbGUucGF0aChXRCwgJ291dHB1dCcsICdvdXRwdXQyLmNzdicpLCByb3cubmFtZXMgPSBGQUxTRSkNCg0KYGBgDQojIyBDYXJhIDMNCg0KaW5pIG1lcnVwYWthbiBsYW5na2FoIGFsdGVybmF0aWYgdW50dWsga2l0YSBhZ2FyIGxlYmloIG55YW1hbiB1bnR1ayBtZW1pbGloIGRhdGEgeWFuZyB0ZXJzaW1wYW4gZGkgZGFsYW0ga29tcHV0ZXIgKFBDKSBhdGF1cHVuIGxhcHRvcCBkZW5nYW4gdGlkYWsgaGFydXMgbWVsYWt1a2FuIHBlbmdhdHVyYW4gZGlyZWt0b3JpIHRlcmxlYmloIGRhaHVsdSBzZWJlbHVtIG1lbGFrdWthbiBwcm9zZXMgaW1wb3IgZGF0YS4NCmBgYHtyfQ0KZGYzIDwtIHJlYWQuY3N2KGZpbGUuY2hvb3NlKCkpDQoNCiMjIENhdGF0YW46IFByb3NlcyB1bnR1ayBtZWxha3VrYW4gaW1wb3IvZXNrcG9yIGRhdGEgc2VsYW5qdXRueWEgYWthbiBkaWxha3VrYW4gZGVuZ2FuIGNhcmEgMSBzYXR1IHNhamEuDQpgYGANCg0KDQojIEltcG9yL0Vrc3BvciBFeGNlbA0KTWljcm9zb2Z0IEV4Y2VsIG1lcnVwYWthbiBwcm9ncmFtIHNwcmVhZHNoZWV0IHlhbmcgcGFsaW5nIHNlcmluZyBkYW4gbHVtYXlhbiBiYW55YWsgZGlwYWthaSB5YW5nIG1lbnlpbXBhbiBkYXRhIGRhbGFtIGZvcm1hdCAueGxzIGF0YXUgLnhsc3guIFIgZGFwYXQgbGFuZ3N1bmcgbWVtYmFjYSBkYXJpIGZpbGUtZmlsZSBpbmkgbWVuZ2d1bmFrYW4gcGFrZXQgcmVhZHhsLg0KYGBge3J9DQojIGluc3RhbGwucGFja2FnZXMoYygicmVhZHhsIiwgIndyaXRleGwiKSkgICAgICAgICAgIyBpbnN0YWxsIGByZWFkeGwgJiB3cml0ZXhsYCANCnBhY21hbjo6cF9sb2FkKHJlYWR4bCwgd3JpdGV4bCkgICAgICAgICAgICAgICAgICAgICAjIGxvYWQgYHJlYWR4bCAmIHdyaXRleGxgDQoNCiMgaW1wb3IgZGF0YQ0KZGF0YWFsZ28zPC1yZWFkX2V4Y2VsKCJpbnB1dC9pbnB1dDQueGxzIikgICAgICAgICAgICMgaW1wb3IgZGF0YSB4bHMgKDk3LTIwMDMpDQpkYXRhYWxnbzQ8LXJlYWRfZXhjZWwoImlucHV0L2lucHV0My54bHN4IixzaGVldD0xKSAgIyBpbXBvciBkYXRhIHhsc3ggKDIwMDMtdXApDQoNCiMgZWtzcG9yIGRhdGENCndyaXRlX3hsc3goZGF0YWFsZ28zLCJvdXRwdXQvb3V0cHV0My54bHMiKSANCndyaXRlX3hsc3goZGF0YWFsZ280LCJvdXRwdXQvb3V0cHV0NC54bHN4IikNCmBgYA0KDQojIEltcG9yL0Vrc3BvciBUWFQgYW5kIFJEUw0KRm9ybWF0IGRhdGEgeWFuZyBwYWxpbmcgdW11bSBkYW4gcGFsaW5nIHlhbmcgc2VyaW5nIGRpcGFrYWkgIHVudHVrIG1lbGFrdWthbiBpbXBvci9la3Nwb3IgZGF0YSBpYWxhaCBmaWxlIENTViBkYW4gWExTWC4gTmFtdW4gc2F5YW5nbnlhLCBtZW1idXR1aGthbiB1a3VyYW4gZmlsZSBDU1YgYXRhdSBYTFNYIGNlbmRydW5nIGxlYmloIGJlc2FyIGRpYmFuZGluZ2thbiBkZW5nYW4gZm9ybWF0IGxhaW55YSBzZXBlcnRpIFRYVCBhdGF1IGZpbGUgYmluZXIgUiAoUkRTKS4gU2VoaW5nZ2EsIGluaSBkYXBhdCBtZW1idXR1aGthbiBzZWtpcmFueWEgdGFtYmFoYW4gd2FrdHUgcGFkYSBzYWF0IGtpdGEgYWthbiBtZWxha3VrYW4gaW1wb3IvZWtzcG9yIGRhdGEuIFNlZGlraXQgc2FyYW4sIHlhbmcgIHNheWEgIHJla29tZW5kYXNpa2FuIGRhbGFtIGhhbCBpbmkgYWRhbGFoIG1lbmdpbXBvciBkYW4gbWVsYWt1a2FuIGVrc3BvciBkYXRhIHRlcnNlYnV0IGRlbmdhbiBmb3JtYXQgVFhUIGF0YXUgYmluYXJ5Lg0KYGBge3J9DQojIGltcG9yIGRhdGENCmRhdGFhbGdvNSA8LSByZWFkLnRhYmxlKCJpbnB1dC9pbnB1dDUudHh0IikgICAgICAgICAgICAgICAjIGZvcm1hdCBUWFQgKG5vdGVwYWQpDQpkYXRhYWxnbzYgPC0gc291cmNlKCJpbnB1dC9pbnB1dDYuUmRtcGQiKSAgICAgICAgICAgICAgICAgIyBmb3JtYXQgVFhUIChSZG1wZCkgICAgICAgDQpkYXRhYWxnbzcgPC0gcmVhZFJEUygiaW5wdXQvaW5wdXQ3LnJkcyIpICAgICAgICAgICAgICAgICAgIyBmb3JtYXQgYmluYXJ5IFJEUyAgICAgICANCmRhdGFhbGdvOCA8LSByZWFkUkRTKCJpbnB1dC9pbnB1dDguYXNjaWkiKSAgICAgICAgICAgICAgICAjIGZvcm1hdCBiaW5hcnkgQVNDSUkgIA0KDQojIGVrc3BvciBkYXRhDQp3cml0ZS50YWJsZShkYXRhYWxnbzUsIm91dHB1dC9vdXRwdXQ1LnR4dCIpICAgICAgICAgICAgICAgIA0KZHVtcCgiZGF0YWFsZ282IiwgIm91dHB1dC9vdXRwdXQ2LlJkbXBkIikgICAgICAgICAgICAgICAgICAgIA0Kc2F2ZVJEUyhkYXRhYWxnbzcsICJvdXRwdXQvb3V0cHV0Ny5yZHMiKSAgICAgICAgICAgICAgICAgICAgICANCnNhdmVSRFMoZGF0YWFsZ283LCAib3V0cHV0L291dHB1dDguYXNjaWkiLCBhc2NpaT1UUlVFKQ0KDQoNCiMjIENhdGF0YW46IEZvcm1hdCBiaW5hcnkgc2FuZ2F0IGxhemltIGRhbiB1bXVtIGRpZ3VuYWthbiB1bnR1ayBtZWxha3VrYW4gcmluZ2thc2FuIHRlcmhhZGFwICBmaWxlIHlhbmcgYmVydWt1cmFuIGJlc2FyLCB0ZXJ1dGFtYSBwYWRhIHNhYXQgbWVuZ2d1bmFrYW4gc2lzdGVtIGtvbnRyb2wgKEFQSSkgc2VwZXJ0aSBoYWxueWEgR2l0Lg0KYGBgDQoNCiMgSW1wb3IvRWtzcG9yIFhNTA0KWE1MIGFkYWxhaCBzdWF0dSBrdW1wdWxhbiBiZXJhZ2FtIGZvcm1hdCBmaWxlLGRhdGEgZGkgV29ybGQgV2lkZSBXZWIsIGludHJhbmV0LCBkYW4gZGkgc2l0dXMgYXRhdSB0ZW1wYXQgeWFuZyBsYWlubnlhIG1lbmdndW5ha2FuIHRla3MgQVNDSUkgc3RhbmRhci4gWE1MIG1lcnVwYWthbiBzZWJ1YWggc2luZ2thdGFuIGRhcmkgZVh0ZW5zaWJsZSBNYXJrdXAgTGFuZ3VhZ2UuIFVudHVrIHBlbmplbGFzYW4gbGViaWggbGVuZ2thcCBrYWxpYW4gZGFwYXQgIG1lbmVtdWthbm55YSBkaSBZb3V0dWJlDQoNClBhZGEgZGFzYXJueWEgWE1MIHNhbmdhdGxhaCBtaXJpcCBkZW5nYW4gSFRNTCwgZGltYW5hIHNpbnRhay1zaW50YWtueWEgYmVyaXNpIG1hcmt1cC4gVGV0YXBpLCBwZXJsdSBkaWluZ2F0IGJhaHdhIFhNTCB0aWRha2xhaCAgc2FtYSBkZW5nYW4gIGhhbCB0YWcgbWFya3VwIEhUTUwgeWFuZyBtZW5qZWxhc2thbiBkYWxhbSBsYW1hbiBzdHJ1a3R1ciBkYXRhbnlhIHRlcmRhcGF0IGRhbGFtIGZpbGUgdGVyc2VidXQuIEthbGlhbiBkYXBhdCBtZW1wZXJoYXRpa2FuIHZpZGVvIHBlbmplbGFzYW4gbWVuZ2VuYWkgSFRNTCB5YW5nIHRlcmRhcGF0IGRpIFlvdXR1YmUNCg0KVW50dWsgU2VsYW5qdXRueWEsIG1hcmkga2l0YSBsYWt1a2FuIGltcG9yL2Vrc3BvciBkYXRhIGRlbmdhbiBmb3JtYXQgWE1MLg0KDQpgYGB7cn0NCmxpYnJhcnkoIlhNTCIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIGxvYWQgcGFrZXQgWE1MIA0KbGlicmFyeSgia3VsaWZlIikgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgbG9hZCBwYWtldCBrdWxpZmUNCmxpYnJhcnkoIm1ldGhvZHMiKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIHBha2V0IGtvbmRpc2lvbmFsDQoNCmRhdGFhbGdvOTwtIHhtbFBhcnNlKCJpbnB1dC9pbnB1dDkueG1sIikgICAgICAgICAjIGltcG9yIGRhdGEgWE1MDQp4bWxfZGYgPC0geG1sVG9EYXRhRnJhbWUoZGF0YWFsZ285KSAgICAgICAgICAgICAgIyBrb252ZXJzaSBrZSBEYXRhZnJhbWUNCndyaXRlLnhtbCh4bWxfZGYsICJvdXRwdXQvb3V0cHV0OS54bWwiKSAgICAgICAgICAjIGVrc3BvciBkYXRhIFhNTA0KYGBgDQoNCg0KIyBJbXBvci9Fa3Nwb3IgSlNPTg0KRmlsZSBKU09OIGRhcGF0IG1lbnlpbXBhbiBkYXRhIHNlYmFnYWkgdGVrcyBkaSBkYWxhbSBzdWF0dSBmb3JtYXQgeWFuZyBiaXNhIGRpYmFjYSBtYW51c2lhLiBKc29uIG1lcnVwYWthbiBzZWJ1YWggc2luZ2thdGFuIGRhcmkgSmF2YVNjcmlwdCBPYmplY3QgTm90YXRpb24uIFIganVnYSBkYXBhdCBtZW1iYWNhIGZpbGUgZGkgSlNPTiBtZW5nZ3VuYWthbiBwYWtldCBqc29ubGl0ZS4gU2VsZW5na2FwbnlhIGthbGlhbiBkYXBhdCBtZWxpaGF0IHRlbnRhbmcgSlNPTiBkaSBZb3V0dWJlLg0KYGBge3J9DQpsaWJyYXJ5KCJqc29ubGl0ZSIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBsb2FkIHBha2V0IEpTT04NCg0KZGF0YWFsZ28xMCA8LWZyb21KU09OKCJpbnB1dC9pbnB1dDEwLmpzb24iKSAgICAgICMgaW1wb3IgZGF0YQ0KanNvbl9kZiA8LSBhcy5kYXRhLmZyYW1lKGRhdGFhbGdvMTApICAgICAgICAgICAgICMga29udmVyc2kga2UgRGF0YWZyYW1lDQp3cml0ZV9qc29uKGpzb25fZGYsICJvdXRwdXQvb3V0cHV0MTAuanNvbiIpICAgICAgIyBla3Nwb3IgZGF0YSBKU09ODQpgYGANCg0KIyBJbXBvciBEYXRhIGRhcmkgV2ViDQpiYW55YWsgd2Vic2l0ZSB5YW5nIG1lbnllZGlha2FuIGRhdGEgdW50dWsgZGlndW5ha2FuICBvbGVoIHBlbmdndW5hbnlhLiBEZW5nYW4gbWVuZ2d1bmFrYW4gcHJvZ3JhbSBSLCBraXRhIGRhcGF0IG1lbGFrdWthbiBla3N0cmFrIGRhdGEgc2VjYXJhIHNwZXNpZmlrIGRhcmkgc2l0dXMgd2ViIHRlcnNlYnV0IHlhbmcgc2VjYXJhIHRlcnByb2dyYW0uIFBhZGEga2FsaSBpbmkgLCBzYXlhIG1hdSBtZW51bmp1a2thbiBjb250b2ggYmFnYWltYW5hIGNhcmEgbWVuZ2ltcG9yIGRhdGEgZGFyaSByZXBvc2l0b3JpIEdpdEh1YiwgbmFtdW4gQW5kYSBkYXBhdCBtZWxha3VrYW4gaGFsIHlhbmcgc2FtYSBkZW5nYW4gbWFzdWsgIGtlIGRhbGFtIHNpdHVzIHdlYiBhdGF1cHVuIGp1Z2EgIHJlcG9zaXRvcmkgbGFpbi4NCg0KIyMgQ1NWDQpgYGB7cn0NCndlYl9jc3YgPC0gcmVhZC5jc3YoImh0dHBzOi8vZ2l0aHViLmNvbS9CYWt0aS1TaXJlZ2FyL2RhdGFzZXQvcmF3L21hc3Rlci9Cb29rZG93bi1EYXRhLVNjaWVuY2UtZm9yLUJlZ2lubmVycy9jc3YxLmNzdiIpDQpgYGANCg0KIyMgWExTWA0KYGBge3J9DQpsaWJyYXJ5KHJpbykgICAgICAgICAgICAgICAgICAgICAgICAgICMgaW1wb3IgZGF0YSBkYXJpIGdpdGh1Yg0KaW5zdGFsbF9mb3JtYXRzKCkgICAgICAgICAgICAgICAgICAgICAjIHBlcmlrc2EgYXV0byBwYWtldCB5YW5nIGRpc2FyYW5rYW4NCg0Kd2ViX3hsc3ggPC1yaW86OmltcG9ydCgiaHR0cHM6Ly9naXRodWIuY29tL0Jha3RpLVNpcmVnYXIvZGF0YXNldC9ibG9iL21hc3Rlci9Cb29rZG93bi1EYXRhLVNjaWVuY2UtZm9yLUJlZ2lubmVycy94bHN4MS54bHN4P3Jhdz10cnVlIikNCmBgYA0KIyBCYXNpcyBEYXRhIFINCg0KU2lzdGVtIGJhc2lzIGRhdGEgbWVydXBha2FuICBkYXRhIHJlbGFzaW9uYWwgeWFuZyB0ZXJzaW1wYW4gZGFsYW0gZm9ybWF0IHlhbmcgZGlub3JtYWxpc2FzaWthbi4gU2VoaW5nZ2EsIHVudHVrIG1lbGFrdWthbiBwcm9zZXMga29tcHV0YXNpIHN0YXRpc3RpayBraXRhIHBhc3RpIG1lbWJ1dHVoa2FuIHF1ZXJ5IFNRTCB5YW5nIHNhbmdhdCBjYW5nZ2loIGRhbiBrb21wbGVrcy4gVGV0YXBpIFIgZGFwYXQgdGVyaHVidW5nIGRlbmdhbiBtdWRhaCBrZSBiYW55YWsgZGF0YWJhc2UgcmVsYXNpb25hbCBzZXBlcnRpIE15U3FsLCBPcmFjbGUsIFNRTCBTZXJ2ZXIsIGRsbC4gS2VtdWRpYW4gYmlhc2FueWEsIGtpdGEgYWthbiBtZW5ndWJhaCBiYXNpcyBkYXRhIHRlcnNlYnV0IG1lbmphZGkgc2VidWFoIGJpbmdrYWkgZGF0YSAoZGF0YSBmcmFtZSkuIFNldGVsYWggZGF0YSBzdWRhaCBhZGEgZGFuIHRlcnNlZGlhIGRpIGxpbmdrdW5nYW4gUiwgc2VsYW5qdXRueWEgZGltYW5pcHVsYXNpIGF0YXUgZGlsYWt1a2FuIGFuYWxpc2lzIGxlYmloIGxhbmp1dC4NCg0KQ2F0YXRhbjogS2l0YSBha2FuIG1lbXBlbGFqYXJpIGJhZ2lhbiBpbmkgZGkgYmFnaWFuIGtodXN1cyB5YW5nIGRpc2VidXQg4oCcU2lzdGVtIEJhc2lzIERhdGEgZGVuZ2FuIFLigJ0gcGFkYSBzZW1lc3RlciBiZXJpa3V0bnlhLg0KDQojIE1lbmFtYmFuZyBEYXRhIFdlYg0KDQpQZW5naWtpc2FuIGRhdGEgZGFyaSB3ZWIgKFdlYnNjcmFwaW5nIERhdGEpIG1lcnVwYWthbiBzZWJ1YWggcHJvc2VzIGRlbmdhbiBtZW5nZ3VuYWthbiBib3QgdW50dWsgbWVuZ2Vrc3RyYWthbiBrb250ZW4gZGFuIGRhdGEgZGFyaSBzaXR1cyB3ZWIuIFRpZGFrIHNhbWEgc2VwZXJ0aSAgc2NyZWVuIHNjcmFwaW5nLCB5YW5nIGhhbnlhIG1lbnlhbGluIHBpa3NlbCB5YW5nIGRpdGFtcGlsa2FuIGRpIGxheWFyLCB3ZWIgc2NyYXBpbmcgZGFwYXQgbWVuZ2Vrc3RyYWsga29kZSBIVE1MIHlhbmcgbWVuZGFzYXJpbnlhIHlhbmcgYmVyYWRhIHBhZGEgZGFzYXJueWEgZGlzaW1wYW4gZGFsYW0gZGF0YWJhc2UuIFBlbmdpa2lzYW4gZGF0YSBpbmkgZGFwYXQgbWVyZXBsaWthc2lrYW4gc2VtdWEga29udGVuIHlhbmcgYWRhIGRhcmkgYmVyYmFnYWkgd2ViIHlhbmcgdGVsYWggZGkgdHVqdS4NCg0KQ2F0YXRhbjogS2l0YSBha2FuIG1lbXBlbGFqYXJpIGJhZ2lhbiBpbmkgZGkgYmFnaWFuIGtodXN1cyB5YW5nIGRpc2VidXQg4oCcSWxtdSBEYXRhIFRlcmFwYW7igJ0uDQo=