22 lines
539 B
R
22 lines
539 B
R
|
library(tidyverse)
|
||
|
|
contrib_df <- read_csv("../final_data/deb_contrib_did.csv")
|
||
|
|
readme_df <- read_csv("../final_data/deb_readme_did.csv")
|
||
|
|
contrib_df <- contrib_df |>
|
||
|
|
filter(event_gap >= 0)
|
||
|
|
readme_df <- readme_df |>
|
||
|
|
filter(event_gap >= 0)
|
||
|
|
|
||
|
|
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)
|
||
|
|
|