econometrics and regression galton 1870 heriditary genius
play

Econometrics and Regression ? Galton (1870, Heriditary Genius , 1886, - PowerPoint PPT Presentation

Arthur CHARPENTIER, Advanced Econometrics Graduate Course, Winter 2018, Universit de Rennes 1 Advanced Econometrics #1 : Nonlinear Transformations * A. Charpentier (Universit de Rennes 1) Universit de Rennes 1 Graduate Course, 2018. 1


  1. Arthur CHARPENTIER, Advanced Econometrics Graduate Course, Winter 2018, Université de Rennes 1 Advanced Econometrics #1 : Nonlinear Transformations * A. Charpentier (Université de Rennes 1) Université de Rennes 1 Graduate Course, 2018. 1 @freakonometrics

  2. Arthur CHARPENTIER, Advanced Econometrics Graduate Course, Winter 2018, Université de Rennes 1 Econometrics and ‘Regression’ ? Galton (1870, Heriditary Genius , 1886, Regression to- wards mediocrity in hereditary stature ) and Pearson & Lee (1896, On Telegony in Man , 1903 On the Laws of Inheritance in Man ) studied genetic transmission of characterisitcs, e.g. the heigth. On average the child of tall parents is taller than other children, but less than his parents. “ I have called this peculiarity by the name of regres- sion ”, Francis Galton, 1886. 2 @freakonometrics

  3. Arthur CHARPENTIER, Advanced Econometrics Graduate Course, Winter 2018, Université de Rennes 1 Econometrics and ‘Regression’ ? 1 > library(HistData) 2 > attach(Galton) 3 > Galton$count <- 1 74 ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● 4 > df <- aggregate (Galton , by=list(parent , ● ● ● ● ● ● ● ● ● ● ● ● 72 ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● child), FUN=sum)[,c(1,2,5)] ● ● ● ● ● ● ● ● ● ● ● ● ● ● 70 ● ● ● ● ● ● height of the child ● ● ● ● ● ● ● ● ● ● ● ● ● ● 5 > plot(df[,1:2], cex=sqrt(df[,3]/3)) ● ● ● ● ● ● ● ● ● ● ● ● ● ● 68 ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● 6 > abline(a=0,b=1,lty =2) ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● 66 ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● 7 > abline(lm(child~parent ,data=Galton)) ● ● ● ● ● ● ● ● ● ● ● ● ● ● 64 ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● 8 > coefficients (lm(child~parent ,data=Galton) ● ● ● ● 62 ● ● ● ● ● ● ● ● ● ● ● ● )[2] 64 66 68 70 72 parent height of the mid−parent 9 10 0.6462906 It is more an autoregression issue here : if Y t = φY t − 1 + ε t , then cor[ Y t , Y t + h ] = φ h → 0 as h → ∞ . 3 @freakonometrics

Download Presentation
Download Policy: The content available on the website is offered to you 'AS IS' for your personal information and use only. It cannot be commercialized, licensed, or distributed on other websites without prior consent from the author. To download a presentation, simply click this link. If you encounter any difficulties during the download process, it's possible that the publisher has removed the file from their server.

Recommend


More recommend