mgaughan/24_deb_pkg_gov
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

pop models

Browse Source
This commit is contained in:
mjgaughan 2024-05-10 15:12:32 -05:00
parent c3816d64e1
commit 34fdc67359
5 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
R/0510_pop_contrib_collab.rda Normal file
View File

Binary file not shown.

BIN
R/0510_pop_contrib_contrib.rda Normal file
View File

Binary file not shown.

BIN
R/0510_pop_rm_collab.rda Normal file
View File

Binary file not shown.

BIN
R/0510_pop_rm_contrib.rda Normal file
View File

Binary file not shown.

16
R/popRDDAnalyssis.R
View File

@ -36,14 +36,22 @@ contrib_pop_contrib <- expanded_contrib_data[which(expanded_contrib_data$is_coll
#import models
library(lme4)
library(optimx)
collab_readme_model <- lmer(log1pcount ~ after_doc + (1| upstream_vcs_link), data=collab_pop_readme, REML=FALSE)
collab_readme_model <- glmer.nb(log1pcount ~ after_doc + (after_doc| upstream_vcs_link), data=collab_pop_readme)
summary(collab_readme_model)
contrib_readme_model <- lmer(log1pcount ~ after_doc + ( 1| upstream_vcs_link), data=contrib_pop_readme, REML=FALSE)
saveRDS(collab_readme_model, "0510_pop_rm_collab.rda")
crm_residuals <- residuals(collab_readme_model)
qqnorm(crm_residuals)
contrib_readme_model <- glmer.nb(log1pcount ~ after_doc + (after_doc| upstream_vcs_link), data=contrib_pop_readme)
summary(contrib_readme_model)
collab_contrib_model <- lmer(log1pcount ~ after_doc + ( 1 | upstream_vcs_link), data=collab_pop_contrib, REML=FALSE)
saveRDS(contrib_readme_model, "0510_pop_rm_contrib.rda")
conrm_residuals <- residuals(contrib_readme_model)
qqnorm(conrm_residuals)
collab_contrib_model <- glmer.nb(log1pcount ~ after_doc + (after_doc| upstream_vcs_link), data=collab_pop_contrib)
summary(collab_contrib_model)
contrib_contrib_model <- lmer(log1pcount ~ after_doc + ( 1 | upstream_vcs_link), data=contrib_pop_contrib, REML=FALSE)
saveRDS(collab_contrib_model, "0510_pop_contrib_collab.rda")
contrib_contrib_model <- glmer.nb(log1pcount ~ after_doc + (after_doc| upstream_vcs_link), data=contrib_pop_contrib)
summary(contrib_contrib_model)
saveRDS(contrib_contrib_model, "0510_pop_contrib_contrib.rda")
library(ggplot2)
expanded_readme_data |>