Arthur CHARPENTIER, Advanced Econometrics Graduate Course
Advanced Econometrics #4 : Quantiles and Expectiles*
- A. Charpentier (Université de Rennes 1)
Université de Rennes 1, Graduate Course, 2018.
@freakonometrics
References Motivation Machado & Mata (2005). Counterfactual - - PowerPoint PPT Presentation
Arthur CHARPENTIER, Advanced Econometrics Graduate Course Advanced Econometrics #4 : Quantiles and Expectiles * A. Charpentier (Universit de Rennes 1) Universit de Rennes 1, Graduate Course, 2018. 1 @freakonometrics Arthur CHARPENTIER,
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
−2 −1 1 −1.5 −1.0 −0.5 0.0 0.5 1.0
−1 1 −1.5 −1.0 −0.5 0.0 0.5 1.0
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
1 2 3 −1.645 5%
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
10 15 20 25 30 20 40 60 80 100 120 speed dist
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
0.0 0.2 0.4 0.6 0.8 1.0 0.5 1.0 1.5 2.0 2.5 0.0 0.2 0.4 0.6 0.8 1.0 0.5 1.0 1.5 2.0 2.5
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
0.0 0.2 0.4 0.6 0.8 1.0 1.5 2.0 2.5 3.0 3.5 4.0 0.0 0.2 0.4 0.6 0.8 1.0 2.0 2.5 3.0 3.5 4.0
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > ols
2 > library(quantreg) 3 > lad
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
2 3 4 5 0.0 0.2 0.4 0.6 0.8 1.0
2 3 4 5 0.0 0.2 0.4 0.6 0.8 1.0
2 3 4 5 0.0 0.2 0.4 0.6 0.8 1.0
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
−1.0 −0.5 0.0 0.5 1.0 1.5 0.0 0.5 1.0 1.5
−1.0 −0.5 0.0 0.5 1.0 1.5 0.0 0.5 1.0 1.5
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > x <- rnorm (99) 2 > library(expectreg) 3 > e <- expectile(x, probs = seq(0, 1, 0.1)) @freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
0.0 0.2 0.4 0.6 0.8 1.0 −2 −1 1 2 0.0 0.2 0.4 0.6 0.8 1.0 2 4 6 8 10 0.0 0.2 0.4 0.6 0.8 1.0 2 4 6 8 0.0 0.2 0.4 0.6 0.8 1.0 0.0 0.2 0.4 0.6 0.8 1.0 0.0 0.2 0.4 0.6 0.8 1.0 0.0 0.2 0.4 0.6 0.8 1.0 0.0 0.2 0.4 0.6 0.8 1.0 0.0 0.2 0.4 0.6 0.8 1.0
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
10 15 20 25 20 40 60 80 100 120 speed dist 10% 90%
40 60 80 2 3 4 5 6 probability level (%) slope of quantile regression
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
−4 −2 2 4 6 5 10 15 H D
@freakonometrics
2 3 4 2 4 6 8 10 x y
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > library(quantreg) 2 > fit
3 > which(predict(fit)== cars$dist) 4
5
−4 −2 2 4 6 5 10 15 20 H D
2 3 4 2 4 6 8 10 x y
@freakonometrics
2 3 4 2 4 6 8 10 x y
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
10 15 20 25 20 40 60 80 100 120 speed dist
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
5 10 15 20 25 30 10 20 30 40 50 Brown Beer Barrel Blond Beer Barrel
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > base=read.table("http:// freakonometrics .free.fr/ natality2005 .txt")
20 40 60 80 −6 −4 −2 2 4 6 probability level (%) AGE 10 20 30 40 50 1000 2000 3000 4000 5000 6000 7000 Age (of the mother) AGE Birth Weight (in g.) 1% 5% 10% 25% 50% 75% 90% 95%
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > base=read.table("http:// freakonometrics .free.fr/ natality2005 .txt",
2 > u=seq (.05 ,.95 , by =.01) 3 > library(quantreg) 4 >
5 > coefest= function(u) summary(rq(WEIGHT~SEX+SMOKER+ WEIGHTGAIN +
6 CS=Vectorize (coefstd)(u) 7 CE=Vectorize (coefest)(u) @freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
20 40 60 80 −6 −4 −2 2 4 6 probability level (%) AGE
20 40 60 80 70 80 90 100 110 120 130 140 probability level (%) SEXM 20 40 60 80 −200 −180 −160 −140 −120 probability level (%) SMOKERTRUE 20 40 60 80 3.5 4.0 4.5 probability level (%) WEIGHTGAIN 20 40 60 80 20 40 60 80 probability level (%) COLLEGETRUE
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > base=read.table("http:// freakonometrics .free.fr/BWeight.csv")
20 40 60 80 −2 2 4 6 8 probability level (%) mom_age
20 40 60 80 40 60 80 100 120 140 probability level (%) boy 20 40 60 80 −190 −180 −170 −160 −150 −140 probability level (%) smoke 20 40 60 80 −350 −300 −250 −200 −150 probability level (%) black 20 40 60 80 −10 −5 5 probability level (%) ed
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > base=read.table("http:// freakonometrics .free.fr/rent98_00. txt")
50 100 150 200 250 500 1000 1500 Area (m2) Rent (euros) 50% 10% 25% 75% 90% 50 100 150 200 250 500 1000 1500 Area (m2) Rent (euros) 50% 10% 25% 75% 90%
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1920 1940 1960 1980 2000 500 1000 1500 Year of Construction Rent (euros) 50% 10% 25% 75% 90% 1920 1940 1960 1980 2000 500 1000 1500 Year of Construction Rent (euros) 50% 10% 25% 75% 90%
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > library(VGAMdata); data(xs.nz)
20 40 60 80 100 15 20 25 30 35 40 45 Age (Women, ethnicity = European) BMI 5% 25% 50% 75% 95% 20 40 60 80 100 15 20 25 30 35 40 45 Age (Men, ethnicity = European) BMI 5% 25% 50% 75% 95%
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
20 40 60 80 100 15 20 25 30 35 40 45 Age (Women) BMI 50% 95% 50% 95% Maori European 20 40 60 80 100 15 20 25 30 35 40 45 Age (Men) BMI 50% 95% Maori European 50% 95%
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
−4 −2 2 4 0.0 0.2 0.4 0.6 0.8 1.0
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > library(McSpatial) 2 > data(cookdata) 3 > fit
10% Quantiles
−2.0 −1.5 −1.0 −0.5 0.0 0.5
90% Quantiles
−2.0 −1.5 −1.0 −0.5 0.0 0.5
Difference between .10 and.90 Quantiles
0.5 0.6 0.7 0.8 0.9 1.0
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
20 40 60 80 2 3 4 5 6 probability level (%) Slope (quantile regression) 20 40 60 80 2 3 4 5 6 probability level (%) Slope (expectile regression)
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
50 100 150 200 250 500 1000 1500 Area (m2) Rent (euros) 50% 10% 25% 75% 90% 50 100 150 200 250 500 1000 1500 Area (m2) Rent (euros) 50% 10% 25% 75% 90%
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
50 100 150 200 250 500 1000 1500 Area (m2) Rent (euros) 50% 10% 25% 75% 90% 50 100 150 200 250 500 1000 1500 Area (m2) Rent (euros) 50% 10% 25% 75% 90%
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > library(expectreg) 2 > coefstd= function(u) summary(expectreg.ls(WEIGHT~SEX+SMOKER+
3 > coefest= function(u) summary(expectreg.ls(WEIGHT~SEX+SMOKER+
4 > CS= Vectorize (coefstd)(u) 5 > CE= Vectorize (coefest)(u) @freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
1 > library(expectreg) 2 > fit
3 > fit
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics
Arthur CHARPENTIER, Advanced Econometrics Graduate Course
@freakonometrics