Skip to content

Instantly share code, notes, and snippets.

@cdriveraus

cdriveraus/cor_stdreg.R

Last active March 14, 2019 16:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cdriveraus/fb4bb77ab57fad8934caaaa036745adc to your computer and use it in GitHub Desktop.
Save cdriveraus/fb4bb77ab57fad8934caaaa036745adc to your computer and use it in GitHub Desktop.
Download ZIP
Correlation and standardised regression
Raw
cor_stdreg.R
n=100
a<-rnorm(n)
b<-a*.5 + rnorm(n)
bs <- scale(b)
as<-scale(a)
summary(lm(b~a))
summary(lm(a~b))
summary(lm(bs~as))
summary(lm(as~bs))
cor(cbind(as,bs))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment