Publications by Muhammad Rizqa Salas
PADK Prak 9
1 pengaruh = matrix(c(3, 12, 15, 10), nrow = 2) colnames(pengaruh) = c("Terinfeksi", "Tidak Terinfeksi") rownames(pengaruh) = c("Vaksin", "Tidak Vaksin") pengaruh ## Terinfeksi Tidak Terinfeksi ## Vaksin 3 15 ## Tidak Vaksin 12 10 fisher.test(pengaruh) ## ## Fisher's Exact Test...
3537 sym
G1401221060_Tugas7_P2
Metode Peramalan Deret Waktu Tugas Individu Library library(ggplot2) ## Warning: package 'ggplot2' was built under R version 4.3.3 library(tsibble) ## Warning: package 'tsibble' was built under R version 4.3.3 ## Registered S3 method overwritten by 'tsibble': ## method from ## as_tibble.grouped_df dplyr ## ## Attaching pack...
6776 sym R (13939 sym/107 pcs) 16 img
G1401221060_G1401221082_1
Input Data # Data set nilai siswa X1 <- c(70, 40, 60, 80, 80, 70, 50, 90, 70, 80) X2 <- c(40, 10, 30, 60, 50, 20, 30, 50, 40, 20) X3 <- c(30, 80, 50, 10, 70, 90, 30, 80, 50, 20) # merge menjadi data frame datasiswa <- data.frame(X1, X2, X3) head(datasiswa) ## X1 X2 X3 ## 1 70 40 30 ## 2 40 10 80 ## 3 60 30 50 ## 4 80 60 10 ## 5 80 50 ...
1616 sym R (2750 sym/21 pcs) 5 img
G1401221060_G1401221082_1
Input data library(car) ## Warning: package 'car' was built under R version 4.3.3 ## Loading required package: carData padi <- read.table(header=T,text = " Varietas Y1 Y2 v1 5 7.2 v1 5.1 7.1 v1 5.2 7.3 v1 5.1 7.2 v2 5.5 7.5 v2 5.4 7.6 v2 5.6 7.7 v2 5.4 7.6 v3 7.1 8.7 v3 7.2 8.6 v3 7.3 8.7 v3 7.4 8.5 v4 8.5 9.1 v4 8.6 ...
275 sym R (2388 sym/7 pcs)
G1401221060_Tugas6_P2
MPDW Project 6 MPDW Project 6 Packages Data Import Data Eksplorasi Data Split Data Data Latih Plot Data Uji Plot Identifikasi Stasioneritas Data Plot ACF Uji ADF Plot Boxcox Penanganan Ketidakstasioneran Data Plot Plot ACF Uji ADF Identifikasi Model Plot ACF Plot PACF Plot EACF Pendugaan Parameter ...
3423 sym Python (10297 sym/71 pcs) 9 img
G1401221060_Tugas5_P2
G1401221060_Tugas5_P2 G1401221060_Tugas5_P2 Data Eksplorasi Data Plot Time Series Plot ACF Uji ADF Plot Box-Cox Summary Eksplorasi Partisi Data Bagian 1 Plot Time Series Plot ACF Uji ADF Plot Boxcox Summary Data Training Bagian 2 Plot Time Series Plot ACF Uji ADF Plot Boxcox Summary Data Testing...
4893 sym Python (49475 sym/57 pcs) 10 img
PADK Prak 6
Contoh Syntax # Membuat tabel kontingensi hasil rapid test rapid_test <- matrix(c(10, 45, 50, 95), nrow = 2, byrow = TRUE, dimnames = list("Prediksi" = c("Positif", "Negatif"), "Aktual" = c("Positif", "Negatif"))) # Menampilkan tabel kontingensi print(rapid_test) ## Aktual ## ...
119 sym
Muhammad Rizqa Salas_G1401221060_Latihan Pert 4
Proses MA(2) Bangkitkan model MA(2) dengan 𝜃1 = 0.4 dan 𝜃2 = 0.6 sebanyak 300 data (Manual) set.seed(1234) n <- 300 theta1 <- 0.4 theta2 <- 0.6 e <- rnorm(n) Y <- numeric(n) for (t in 3:n) { Y[t] <- e[t] + theta1 * e[t-1] + theta2 * e[t-2] } Y <- ts(Y) #ubah ke time series Y ## Time Series: ## Start = 1 ## End = 300 ## Fre...
2135 sym R (31390 sym/62 pcs) 20 img
PADK Prak 5
Contoh Kode Sebaran Binomial n <- 5 p <- 1/6 y <- 3 prob <- dbinom(y, size=n, prob=p) print(prob) ## [1] 0.03215021 Sebaran Multinomial n <- 20 prob <- c(0.7, 0.25, 0.05) k <- c(15, 3, 2) prob_result <- dmultinom(k, size=n, prob=prob) print(prob_result) ## [1] 0.02875242 Uji Proposi # Data n <- 2000 x <- 1120 p0 <- 0.5 # hypothesiz...
641 sym
Muhammad Rizqa Salas_G1401221060_Soal 3
n1 <- 50 n2 <- 60 p <- 2 alpha <- 0.05 Xbar1 <- c(210.5, 549.6) Xbar2 <- c(180.0, 369.0) S1 <- matrix(c(14825.3, 25823.4, 25823.4, 72107.4), nrow = 2) S2 <- matrix(c(8732.0, 18616.7, 18616.7, 56964.5), nrow = 2) Ragam sama Sgab <- ((n1-1)*S1+(n2-1)*S2)/(n1+n2-2) dif <- Xbar1-Xbar2 T2 <- t(dif) %*% solve(((1/n1) + (1/n2)) * Sgab) %*% dif ...
1027 sym