Skip to content

Instantly share code, notes, and snippets.

@nniiicc
Created July 23, 2010 06:14
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 nniiicc/487090 to your computer and use it in GitHub Desktop.
Save nniiicc/487090 to your computer and use it in GitHub Desktop.
mydata <- read.csv("~/Desktop/JournalData.csv")
attach(mydata)
names(mydata)
how.cite.data.var = Cite.data.code
how.cite.data.var [how.cite.data.var>1] = 1
mylogit<- glm(how.cite.data.var~Impact.Factor+Policy.request...require.code, family=binomial(link="logit"), na.action=na.pass)
summary(mylogit)
confint(mylogit)
exp(mylogit$coefficients)
mylogit$null.deviance-mylogit$deviance
mylogit$df.null-mylogit$df.residual
1-pchisq(mylogit$null.deviance-mylogit$deviance, mylogit$df.null-mylogit$df.residual)
logLik(mylogit)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment