Memasang Kurva Pendekatan Kuadratik terhadap Data

123
4567Code R nya silahkan di copy dan bisa dipraktekkan. Semoga bermanfaat yah 😀

Kode R:

#masuk ke dalam folder “Memasang Kurva Pendekatan Kuadratik terhadap Data”
setwd(“D:/BUKU UGI/Buku R Ugi dan Erwin/Memasang Kurva Pendekatan Kuadratik terhadap Data”)

#membaca atau membuka data file “Penjualan Buku.csv” dalam R
data=read.csv(“Penjualan Buku.csv”)

#menampilkan data
data

#menyajikan grafik sebaran data
attach(data)
plot(Tahun, Penjualan, main=”Analisis Sebaran Data”,
xlab=”Tahun “, ylab=”Jumlah Buku yang Terjual dalam Ribuan “, pch=19)
#regresi nonlinear sederhana kuadratik
fit2<-lm(Penjualan~poly(Tahun,2,raw=TRUE))
summary(fit2)

#menampilkan koefisien regresi pertama, kedua, dan ketiga
fit2$coefficient[1]
fit2$coefficient[2]
fit2$coefficient[3]

#menampilkan nilai estimasi penjualan
kuadratik = fit2$coefficient[3]*Tahun^2 + fit2$coefficient[2]*Tahun + fit2$coefficient[1]
kuadratik
#memasang kurva kuadratik
plot(Tahun, Penjualan, main=”Analisis Sebaran Data”,
xlab=”Tahun “, ylab=”Jumlah Buku yang Terjual dalam Ribuan “, pch=19)
par(new = TRUE)
lines(Tahun,kuadratik, col=”red”)