5.1 Statistik Uji ANOVA Program 5.1 promo <- read.csv("promo.csv") promo2 <- promo[,-c(1,2,4)] promo2$X12 <- promo2$frekuensi.fashion*promo2$nilai.fashion promo2$X13 <- promo2$frekuensi.footwear*promo2$nilai.footwear promo2$X14 <- promo2$frekuensi.lainnya*promo2$nilai.lainnya promo2$X15 <- promo2$total.nilai.tunai/(promo2$X12 + promo2$X13 + promo2$X14) hasil = NULL for(i in c(1:9, 11:14)){ y = promo2[,i] x = promo2$promo F = oneway.test(y ~ x)$statistic hasil = rbind(hasil, c(i, F)) } namavar = colnames(promo2)[-10] … Read more

4.2 Variance Threshold Program 4.1 data <- read.csv("data sapi.csv") data <- data[,-1] head(format(data, digits=6)) ## X1pjg_badan X2ttg_badan X3lkr_badan X4pjg_ekor X5pjg_tanduk Ybbt_badan ## 1 118.488 118.634 191.772 36.1714 15.99607 2836.12 ## 2 170.237 127.834 174.372 35.6906 14.27944 3058.19 ## 3 157.333 155.058 171.637 31.5397 11.45499 3153.16 ## 4 116.805 151.166 194.035 30.3483 10.04847 2923.64 ## 5 … Read more

3.1 Regresi Logistik Program 3.1 # mengimpor data dataEHR <- read.csv("data-EHR.csv", sep=",") # Mengubah peubah “SOURCE” dan “AGE” menjadi factor. library(dplyr) dataEHR <- dataEHR %>% mutate_at(c(10,11),factor) # Memisahkan data menjadi 80% data latih dan 20% data uji. set.seed(123) n <- round(0.2*nrow(dataEHR),0) contoh <- sample(nrow(dataEHR), n, replace = FALSE) EHRlatih <- dataEHR[-contoh,] EHRuji <- dataEHR[contoh,] # … Read more

2.1 Regresi Linier Program 2.1 data <- read.csv("data sapi.csv") data <- data[,-1] regresi <- lm(Ybbt_badan ~ ., data=data) regresi Output 2.1 ## ## Call: ## lm(formula = Ybbt_badan ~ ., data = data) ## ## Coefficients: ## (Intercept) X1pjg_badan X2ttg_badan X3lkr_badan X4pjg_ekor ## 118.8305 6.1877 4.5001 7.4794 1.1279 ## X5pjg_tanduk ## 0.1448 Program 2.2 data … Read more