Tugas 1 (Regresi NonParametrik)

#Mengimport Data
Data.Obesitas.Fixx <- read.csv("C:/Users/Asus/Downloads/Data Obesitas Fixx.csv", sep=";")
View(Data.Obesitas.Fixx)

library(ggplot2)
#Scatter Plot Tinggi Badan dan Berat Badan
ggplot(Data.Obesitas.Fixx,aes(x=Height, y=Weight)) + geom_point() + geom_smooth(method = lm, se = F, fullrange = T)

## `geom_smooth()` using formula = 'y ~ x'

#Scatter Plot Umur dan Berat Badan
ggplot(Data.Obesitas.Fixx,aes(x=Age, y=Weight)) + geom_point() + geom_smooth(method = lm, se = F, fullrange = T)

## `geom_smooth()` using formula = 'y ~ x'

#Scatter Plot Umur dan Tinggi Badan
ggplot(Data.Obesitas.Fixx,aes(x=Age, y=Height)) + geom_point() + geom_smooth(method = lm, se = F, fullrange = T)

## `geom_smooth()` using formula = 'y ~ x'