Cara membuat data dalam vektor. `
#create sampel data
X <- c(15, 17, 19, 20, 22, 34, 25, 50)
Y <- c(150, 200, 235, 220, 267, 300, 310, 400)
#print sample
X
## [1] 15 17 19 20 22 34 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)