R/analyse.R

In jomuller/rigaps: R Interface to Generate Analysis like the Program SIGAPS

# Analyse

author_rank_table <- function(x) {
  x %>%
    group_by(sigaps_author_rank) %>%
    summarise(n = n(), score = sum(sigaps_score, na.rm = T))
}


paper_rank_table <- function(x) {
  x %>%
    group_by(paper_rank) %>%
    summarise(n = n(), score = sum(sigaps_score, na.rm = T))
}