R/process_attgt.R

In did: Treatment Effects with Multiple Periods and Groups

#' @title Process Results from [compute.att_gt()]
#'
#' @param attgt.list list of results from [compute.att_gt()]
#'
#' @return list with elements:
#' \item{group}{which group a set of results belongs to}
#' \item{tt}{which time period a set of results belongs to}
#' \item{att}{the group time average treatment effect}
#'
#' @export
process_attgt <- function(attgt.list) {
  group <- vapply(attgt.list, function(x) as.numeric(x[["group"]]), numeric(1))
  att   <- vapply(attgt.list, function(x) as.numeric(x[["att"]]), numeric(1))
  tt    <- vapply(attgt.list, function(x) as.numeric(x[["year"]]), numeric(1))

  list(group=group, att=att, tt=tt)
}