WEEK3 in class exercise no.3：Quantile regression

library(Brq)

#load data

data(USgirl, package="Brq")

str(USgirl)

## 'data.frame':    4011 obs. of  2 variables:
##  $ Age   : num  14.74 1.76 15.38 12.76 15.73 ...
##  $ Weight: num  85 12.2 59.4 38.6 47.9 ...

plot(USgirl, pch='.', bty="n",
     xlim=c(0, 25),
     ylim=c(0, 150),
     xlab="Age (in years)",
     ylab="Body weight (in kg)")

#quantiles to be examined

qs <- 1:9/10

#install.packages("ggplot") 

Warning in install.packages : package ‘ggplot’ is not available (for R version 4.0.2)

#ggplot(USgirl, aes(Age, Weight)) + 
 #geom_point(alpha=.5, size=rel(.3)) + 
 #geom_quantile(quantiles=1:9/10, 
               #formula=y ~ x)+
 #labs(x="Age (in years)", 
      #y="Body weight (in kg)") +
#theme_minimal()