TUGAS 1

data <- read.delim(file.choose(), header = TRUE)
head(data)

##   Age Height Weight
## 1  21   1.62   64.0
## 2  21   1.52   56.0
## 3  23   1.80   77.0
## 4  27   1.80   87.0
## 5  22   1.78   89.8
## 6  29   1.62   53.0

plot(data$Age, data$Weight,
     main = "Scatter Plot Age vs Weight",
     xlab = "Age",
     ylab = "Weight")
abline(lm(Weight ~ Age, data = data), col = "pink", lwd = 2)

plot(data$Age, data$Height,
     main = "Scatter Plot Age vs Height",
     xlab = "Age",
     ylab = "Height")
abline(lm(Height ~ Age, data = data), col = "plum", lwd = 2)