Pemrograman R - Generate data sintetik dengan distribusi Gaussian

Name: Farhan Dzaffa Arfianto

NIM: 2206065110099

Institute: Maulana Malik Ibrahim Islamic State University of Malang

Departement: Computer Science

Lecturer: Prof. Dr. Suhartono, M.Kom

Mengenerate data sintetik

set.seed(123)
x <- rnorm(100, mean = 10, sd = 2)
y <- 2 * x + rnorm(100, mean = 0, sd = 2)

Memasukkan data ke dalam dataframe

data <- data.frame(x = x, y = y)

Melakukan regresi linier

model <- lm(y ~ x, data = data)

Menampilkan hasil ringkasan model

print("Ringkasan Model Regresi Linier:")

## [1] "Ringkasan Model Regresi Linier:"

print(summary(model))

## 
## Call:
## lm(formula = y ~ x, data = data)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -3.815 -1.367 -0.175  1.161  6.581 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   0.3191     1.1053   0.289    0.773    
## x             1.9475     0.1069  18.222   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.941 on 98 degrees of freedom
## Multiple R-squared:  0.7721, Adjusted R-squared:  0.7698 
## F-statistic:   332 on 1 and 98 DF,  p-value: < 2.2e-16

Memvisualisasikan data dan hasil regresi linier

plot(x, y, main = "Regresi Linier dengan Distribusi Gaussian",
     xlab = "Variabel X", ylab = "Variabel Y", pch = 16, col = "blue")
abline(model, col = "red", lwd = 2)
legend("topleft", legend = "Regresi Linier", col = "red", lwd = 2)

Program di atas mengenerate data sintetik dengan distribusi Gaussian, melakukan regresi linier menggunakan fungsi lm di R Studio, dan menampilkan hasil ringkasan model. Selanjutnya, program juga memvisualisasikan data dan hasil regresi linier dengan grafik scatter plot serta garis regresi linier yang diplot dengan fungsi abline. Anda dapat menyesuaikan parameter dan gaya visualisasi sesuai dengan kebutuhan Anda.