x <- c(153, 169, 140, 186, 128, 136, 178, 163, 152, 133)
y <- c(64, 81, 58, 91, 47, 57, 75, 72, 62, 49)
model <- Im(y-x)
print(model)
df<- data.frame(x = 182)
 res <- predict(model, df)
  cat("\nPredicted value of a person with height = 182")
print(res)
png(file = "linear RegGFG.png")
plot(x, y, main = "Height vs Weight Regression model")
abline (lm(y-x))
dev.off()