Skip to content

Instantly share code, notes, and snippets.

@gldomingo

gldomingo/rexample.txt Secret

Created August 21, 2016 01:04
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 gldomingo/b3f72d1fe10bb06d0840210d682df9ac to your computer and use it in GitHub Desktop.
Save gldomingo/b3f72d1fe10bb06d0840210d682df9ac to your computer and use it in GitHub Desktop.
Download ZIP
Rexample
Raw
rexample.txt
### RUN LOG REGRESSION
logit.presall = glm(party ~ ., family = "binomial",
data = pres)
logit.preslessreel = glm(party ~ .-reelection, family = "binomial",
data = pres)
# Mc Faddens Pseudo R2 For Saturated Model
1 - logit.presall$deviance/logit.presall$null.deviance
# [1] 0.04845773
# Mc Faddens Pseudo R2 For Saturated Model less Reelection
1 - logit.preslessreel$deviance/logit.preslessreel$null.deviance
# [1] 0.04235546
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment