Publications by suci ramadani
Document
library(rlang) # Membuat data frame df <- data.frame(x = 1:10, y = c(2, 4, 5, 7, 8, 9, 10, 12, 13, 15)) # Membuat matriks X dan vektor Y X1 <- cbind(rep(1, nrow(df)), df$x) Y1 <- df$y Lalu, kita menghitung matriks Gram G dari matriks X. Setelah itu, kita menghitung vektor eigen dari matriks Gram G menggunakan fungsi eigen(). # Menghitung mat...
486 sym R (964 sym/21 pcs)
Document
library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.2 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.2 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.2 ✔ tidyr 1.3.0...
2215 sym R (1616 sym/13 pcs)
Document
Dalam analisis ini, kita menggunakan dataset “USArrests” yang tersedia di R. Dataset ini berisi data kejahatan di Amerika Serikat pada tahun 1973, dengan empat variabel yaitu Murder, Assault, UrbanPop, dan Rape. data(USArrests) ini digunakan untuk memuat dataset “USArrests” yang tersedia di R ke dalam lingkungan kerja arrests_matrix <- ...
1238 sym 1 img
Document
library(forecast) ## Registered S3 method overwritten by 'quantmod': ## method from ## as.zoo.data.frame zoo library(ggplot2) decomposition <- stl(AirPassengers, s.window = "periodic") plot(decomposition) train_data <- window(AirPassengers, end = c(1958, 12)) test_data <- window(AirPassengers, start = c(1959, 1)) auto_arima <- ...
842 sym R (1186 sym/8 pcs) 2 img
Document
library(forecast) ## Registered S3 method overwritten by 'quantmod': ## method from ## as.zoo.data.frame zoo library(ggplot2) # Memuat dataset UKgas data("UKgas") # Memisahkan data menjadi data latihan train_data <- window(UKgas, end = c(1991, 12)) ## Warning in window.default(x, ...): 'end' value not changed # Menentukan model...
879 sym R (1686 sym/8 pcs) 1 img
Document
library(caret) ## Loading required package: ggplot2 ## Loading required package: lattice # Memuat dataset iris data(iris) # Memisahkan data menjadi variabel independen (x) dan variabel dependen (y) x <- iris[, 1:4] y <- iris[, 5] # Mengubah variabel dependen menjadi faktor y <- as.factor(y) # Membagi data menjadi data latih dan data uji ...
2193 sym R (1624 sym/13 pcs)
Document
# Memuat paket yang diperlukan library(e1071) library(caret) ## Loading required package: ggplot2 ## Loading required package: lattice # Memuat dataset iris bawaan R data(iris) # Memisahkan data menjadi variabel independen (x) dan variabel dependen (y) x <- iris[, 1:4] y <- iris[, 5] # Mengubah variabel dependen menjadi faktor y <- as.fac...
2089 sym R (1954 sym/9 pcs)
Document
AAdded Chatgpt in Rstudio Kali ini kita akan mencoba menambahkan fitur tambahan (Addins) berupa ChatGPT kedalam RStudio. ChatGPT dapat memudahkan dan juga membantu para teknisi data untuk mengolah datanya. Berikut ini langkah-langkah dalam menambahkan data tersebut. Introduction To “gptstudio” Tujuan dibuatnya gptstudio adalah agar para pem...
2726 sym R (100 sym/2 pcs)
Document
library(matlib) library(matlib) A <- matrix(c(-00, -2, -1, 2, 3, 2, 3, -2, -3), nrow = 3, ncol = 3) b <- c(6, -1, 2) A ## [,1] [,2] [,3] ## [1,] 0 2 3 ## [2,] -2 3 -2 ## [3,] -1 2 -3 Solve(A, b) ## x1 = 6.18181818 ## x2 = 3.54545455 ## x3 = -0.36363636 plotEqn3d(A,b)...
9 sym R (320 sym/6 pcs)
Document
library(Matrix) v1 <- c(2, -1, 3) v2 <- c(-1, 0, 4) v1 + v2 ## [1] 1 -1 7 A <- matrix(c(3, 0, -5, -1, -3, 4), nrow = 2, ncol = 3, byrow = TRUE) B <- matrix(c(-5, 5, 2, 1, -2, 0), nrow = 2, ncol = 3, byrow = TRUE) A + B ## [,1] [,2] [,3] ## [1,] -2 5 -3 ## [2,] 0 -5 4 Dalam R, kita dapat melakukan perkalian skalar dari Cont...
1045 sym R (837 sym/19 pcs)