# The Predictor vector.
x <- c(5.1,5.5,5.8,6.1,6.4,6.7,6.4,6.1,5.10,5.7)

#The Response Vector.
y <- c(63,66,69,72,75,78,75,72,69,66)

#Apply the lm() Function.
relation <- lm(y-x)

summary(relation)

#Find Weight of a person with Height 170.
a <- data.frame(x = 6.3)
result <- predict(relation,a)
print(result)