R/mrfi_coding.R

Defines functions decode_mrfi encode_mrfi

#' @export
encode_mrfi <- function(vec_included){
  paste0(as.numeric(vec_included), collapse = "")
}

#' @export
decode_mrfi <- function(coded_char){
  as.logical(as.integer(strsplit(coded_char, split = "")[[1]]))
}
Freguglia/mrf2dbayes documentation built on Jan. 19, 2024, 11:21 p.m.