R/od_fatal_psycho.R

In injuryepi/overdoser: Overdose data analysis

#' Find psychotropic poisoning
#' antidepressant and neuroleptics
#'
#' @param data input data
#' @param underly_col underlying cause column index
#' @param mult_col multicause index
#'
#' @return psycho
#' @export
#'
#' @examples to be added
#'
od_fatal_psycho <- function(data, underly_col, mult_col) {
	data %>%
		mutate(any_drugs = od_create_diag(., expr = "X4[0-4]|X6[0-4]|X85|Y1[0-4]", colvec = underly_col)) %>%
		mutate(psycho = od_create_cond_diag(., expr = "T43[0-5]", colvec = mult_col, cond.var = any_drugs)) %>%
		select(-any_drugs)
}