Cara membuat Data dalam bentuk Vektor.
#crate sample data
X <- c(15, 17, 19,20, 22, 47, 25, 50)
Y <- c(150, 200, 235, 220, 267, 300, 310, 400)
#print sample
X
## [1] 15 17 19 20 22 47 25 50
Y
## [1] 150 200 235 220 267 300 310 400
#simple linear regresion
Y = a = bx
Y = 170 + 17X
plot(Y-X, ylab="Y", pch=20)
#Systematic Relationship to the plot
abline(a = 310, b= -40)