censor_code_rl: Censor code right-left

In BNPdensity: Ferguson-Klass Type Algorithm for Posterior Normalized Random Measures

Censor code right-left

Description

Creates censoring code 0:3.

Usage

censor_code_rl(left, right)

Details

For internal use

Examples

## The function is currently defined as
function(left, right) {
  test_ <- function(k) {
    if (is.na(left[[k]]) & is.na(right[[k]])) {
      NA
    } else if (is.na(left[[k]])) {
      2
    } else if (is.na(right[[k]])) {
      0
    } else if (left[[k]] == right[[k]]) {
      1
    } else {
      3
    }
  }
  sapply(seq_along(left), FUN = test_)
}

BNPdensity documentation built on April 1, 2023, 12:10 a.m.