cara membuat Data dalam bentuk vektor.
#create sample data
x <- c(15, 17, 19, 20, 22, 35, 25, 50)
Y <- c(150, 200, 235, 220, 300, 310, 400)
#print sample
x
## [1] 15 17 19 20 22 35 25 50
Y
## [1] 150 200 235 220 300 310 400
Y = a + bx
Y = 170 + 17X
## scatter plot
plot(Y -x, ylab="Y" , pch=20)
## Warning in Y - x: longer object length is not a multiple of shorter object
## length
#systematic Relationship to the point
abline(a =310, b=-40)