34 lines
783 B
R
34 lines
783 B
R
library(tidyverse)
|
|
contrib_df <- read_csv("../final_data/deb_contrib_did.csv")
|
|
readme_df <- read_csv("../final_data/deb_readme_did.csv")
|
|
median(readme_df$age_in_days)
|
|
sd(readme_df$age_in_days)
|
|
|
|
median(contrib_df$age_in_days)
|
|
sd(contrib_df$age_in_days)
|
|
|
|
contrib_df <- contrib_df |>
|
|
filter(event_gap >= 0)
|
|
readme_df <- readme_df |>
|
|
filter(event_gap >= 0)
|
|
|
|
quantile(readme_df$age_in_days)
|
|
quantile(contrib_df$age_in_days)
|
|
|
|
quantile(readme_df$event_gap)
|
|
quantile(contrib_df$event_gap)
|
|
|
|
hist(readme_df$event_gap)
|
|
median(readme_df$event_gap)
|
|
sd(readme_df$event_gap)
|
|
max(readme_df$event_gap)
|
|
table(readme_df$event_gap)
|
|
|
|
hist(contrib_df$event_gap)
|
|
median(contrib_df$event_gap)
|
|
sd(contrib_df$event_gap)
|
|
max(readme_df$event_gap)
|
|
table(readme_df$event_gap)
|
|
sum(contrib_df$event_gap < 0)
|
|
|