Publications by nasrah n satri
UAS_PRAKTIKUM KOMSTAT23
pertama kita instal semua packages yang kita butuhkan library(wordcloud) ## Loading required package: RColorBrewer library(RColorBrewer) library(tm) ## Loading required package: NLP library(NLP) library(textclean) library(tidytext) library(ggplot2) ## ## Attaching package: 'ggplot2' ## The following object is masked from 'package:NLP': ## ...
906 sym R (1444578 sym/64 pcs) 3 img
tugas 3
pertama kita instal semua packages yang kita butuhkan library(wordcloud) ## Loading required package: RColorBrewer library(RColorBrewer) library(tm) ## Loading required package: NLP library(NLP) library(textclean) library(tidytext) library(ggplot2) ## ## Attaching package: 'ggplot2' ## The following object is masked from 'package:NLP': ## ...
906 sym R (1444578 sym/64 pcs) 3 img
UAS_TEXT CLEANING KOMSTAT
pertama kita install packages yang kita butuhkan library(wordcloud) ## Loading required package: RColorBrewer library(RColorBrewer) library(tm) ## Loading required package: NLP library(textclean) library(tidytext) library(ggplot2) ## ## Attaching package: 'ggplot2' ## The following object is masked from 'package:NLP': ## ## annotate lib...
1909 sym R (537597 sym/99 pcs) 4 img
revisi tugas uas praktikum
pertama kita input data yang akan digunkan sebagai text cleaning dan data yang saya gunakan disnini adalah data tweet prabowo {r} prabowo rev <- prabowo$full_text head(rev) pertama yang kita lakukan ketika text cleaning adalah kita melakukan lower case = mengubah huruf kapital menjadi huruf kecil {r} rev <- tolower(rev) head(rev) kemudian kita ...
1442 sym
UAS_praktikum komstat
{r} prabowo tweets <- prabowo$full_text %>% as.character() head(tweets) number of tweet rows after duplicated text removed {r} nrow(tweets) hapus url {r} tweets <- tweets %>% replace_html() %>% replace_url() tweets print original tweet with converted emoji in index {r} replace_emoji(tweets) print tweet with converted html in index {r} ...
1899 sym
U
input datany {r} prabowo rev <- prabowo$full_text head(rev) selanjutnya kita melakukan lower case = mengubah huruf kapital menjadi huruf kecil {r} rev <- tolower(rev) head(rev) kemudian kita Mengembalikan Kata yang disingkat Menjadi Kata Aslinya {r} rev <- replace_contraction(rev) head(rev) Mengembalikan Kata yang Mengalami Perpanjangan Menja...
1290 sym
komputasi_3
library(wordcloud) library(tm) library(textclean) library(tidytext) library(ggplot2) library(parallel) library(tokenizers) library(tau) library(NLP) library(stringr) library(devtools) library(quanteda) library(kayadata) library(syuzhet) library(e1071) library(sentimentr) library(SentimentAnalysis) library(dplyr) library(GGPLO) library(pacman) ...
3718 sym
tugas_komputasi3
inport data dan summary data library(datasets) data("airquality") summary(airquality) ## Ozone Solar.R Wind Temp ## Min. : 1.00 Min. : 7.0 Min. : 1.700 Min. :56.00 ## 1st Qu.: 18.00 1st Qu.:115.8 1st Qu.: 7.400 1st Qu.:72.00 ## Median : 31.50 Median :205.0 Median : 9.7...
39 sym R (1696 sym/6 pcs) 1 img