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