R/hpp_net.R

In softloud/adpain: Antidepressants for the treatment of chronic pain in adults

hpp_net <- function(dat, type) {

  n_placebo <-
    dat %>%
    filter(intervention == "placebo") %>%
    nrow()
  
  
  if (type == "smd" & n_placebo > 0) {
    set_agd_arm(
      data = dat,
      study = study,
      trt = intervention,
      trt_ref = "placebo",
      y = mean,
      se = se,
      sample_size = n
    )
  } else if (type == "lor" & n_placebo > 0) {
    set_agd_arm(
      data = dat,
      study = study,
      trt = intervention,
      trt_ref = "placebo",
      r = r,
      n = n,
      sample_size = n
    )  } else if (type == "smd") {
    set_agd_arm(
      data = dat,
      study = study,
      trt = intervention,
      y = mean,
      se = se,
      sample_size = n
    )
  } else if (type == "lor") {
    set_agd_arm(
      data = dat,
      study = study,
      trt = intervention,
      r = r,
      n = n,
      sample_size = n
    )  }
}