Gaussian Linear 2

=====================================================

Nama Mahasiswa : Ecofah Raditya Daniswara

NIM : 220605110155

Kelas : C

Mata Kuliah : Linear Algebra

Dosen Pengampuh : Prof.Dr.Suhartono,M.Kom

Jurusan : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

=====================================================

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

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

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

print("Ringkasan Model Regresi Linier:")

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

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