Postingan

FIltering DataFrame Manual

library(datasets) data(iris) iris #atau  iris[,] typeof(iris) a=iris[1:5,1] iris[1:5,1:2] iris[1:5,1:3] dim(iris) str(iris) col=length(iris) #5#jika data banyak kolom dia baca banyak kolom bar=length(iris$Sepal.Length) #jika data hanya 1 kolom dia baca banyak baris #iris[1:2] #prioritas kolom DFtranspose = df[FALSE,] #DFtranspose <- as.data.frame(matrix(nrow = 1, ncol = 5)) for(i in 1:bar){     if(iris$Sepal.Length[i]>7.5){       baca=list((iris[i,]))       df= as.data.frame((as.data.frame(baca)))       DFtranspose <- rbind(DFtranspose, df)     } } baca=list((iris[1,])) df1= as.data.frame((as.data.frame(baca))) baca=list((iris[2,])) df2= as.data.frame((as.data.frame(baca))) baca=list((iris[3,])) df3= as.data.frame((as.data.frame(baca))) DFtranspose <- rbind(df1, df2) for(i in 1:jd){  print(MyList[[i]]) } df= as.data.frame((as.data.frame(MyList))) rowname...
Posting Komentar
Baca selengkapnya

Data Frame

Gambar
> nama <- c("Ana","Banu", "Cici", "Dido", "Erik") > tahun <- c(1992,1995,1993,1999,1994) > lahir <- data.frame(nama, tahun) > lahir   nama tahun 1  Ana  1992 2 Banu  1995 3 Cici  1993 4 Dido  1999 5 Erik  1994 > View(lahir) > lahir$tahun > 1992 [1] FALSE  TRUE  TRUE  TRUE  TRUE > muda <- subset(lahir, lahir$tahun >1994) > muda   nama tahun 2 Banu  1995 4 Dido  1999 > tahun > 1992 [1] FALSE  TRUE  TRUE  TRUE  TRUE > muda <- subset(lahir, tahun >1994) > muda   nama tahun 2 Banu  1995 4 Dido  1999 > muda <- subset(lahir, lahir$tahun >1994) > muda   nama tahun 2 Banu  1995 4 Dido  1999 > lahir   nama tahun 1  Ana  1992 2 Banu  1995 3 Cici  1993 4 Dido  1999 5 Erik  1994 > lahir[-3,]   nama tahun 1  Ana...
Posting Komentar
Baca selengkapnya

KNN on RStudio Studi Kasus

Gambar
Download Data Training Lakukan perintah dasar pada Rstudio > getwd() [1] "C:/Users/ACER/Documents" > MyData <- read.csv(file="dataTraining.csv", header=TRUE, sep=",") > View(MyData) > names(MyData)  [1] "Win.Loss"       "Optimism"       "Pessimism"      "PastUsed"       "FutureUsed"     "PresentUsed"   [7] "OwnPartyCount"  "OppPartyCount"  "NumericContent" "Extra"          "Emoti"          "Agree"        [13] "Consc"          "Openn"       > attributes(MyData) $names  [1] "Win.Loss"       "Optimism"       "Pessimism"      "PastUsed"       "FutureUsed"     "PresentUsed"   [7] "OwnPartyCount"  "OppPartyCount"  "...
Posting Komentar
Baca selengkapnya

Pengujian NaiveBayes data External

Copykan file uji  datafixastrid.xlsx  ke working directory,  > getwd() [1] "C:/Users/ACER/Documents" > datafixastrid <- read_excel("datafixastrid.xlsx") > View(datafixastrid) #lihat isi > datafixastrid # A tibble: 34 x 96     X__1    DSR  X__2   DUR  X__3     GSR  X__4    DGR  X__5      PKR   X__6   KPR   X__7   KBR    <dbl>  <dbl> <dbl> <dbl> <dbl>   <dbl> <dbl>  <dbl> <dbl>    <dbl>  <dbl> <dbl>  <dbl> <dbl>  1 1316. 0.258  1602. 0.314   20. 0.00392  301. 0.0591   50. 0.00981  10466. 2.05   8788. 1.72   2 3477. 0.247  2871. 0.204   37. 0.00262  815. 0.0578   26. 0.00184  14824. 1.05  ...
Posting Komentar
Baca selengkapnya

Review RSTUDIO

Gambar
#membuat fungsi ->#cara panggilnya: bersih() bersih <- function() cat("\014")  closeAllConnections() rm(list=ls()) >v=212 >typeof(v) [1] "double" #membuat random 10 bilangan antara 5 s/d 7.5 > x1 <- runif(10, 5.0, 7.5) > x1  [1] 7.092883 7.291221 6.348377 5.123613 5.302045 6.137085 6.814298  [8] 5.741372 7.090372 5.509627 #membuat random 1 s/d 10 sebanyak 10 bilangan unique > x3 <- sample(1:10, 10) > x3  [1]  8  9  6  7  3  4  2  5  1 10 > x4 <- sample(1:10, 10, replace=T) > x4  [1]  9  2  5  9  8  8  9 10  4  4 > typeof(x4) [1] "integer" (WD <- getwd()) if (!is.null(WD)) setwd(WD) list.files(R.home()) list.files(WD) #hasil > (WD <- getwd()) [1] "C:/Users/ACER/Documents" > if (!is.null(WD)) setwd(WD) > list.files(R.home())  [1] "bin"            "...
Posting Komentar
Baca selengkapnya