## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)


## -----------------------------------------------------------------------------
library(haven)
x <- c(1:5, tagged_na("a"), tagged_na("b"))

# Is used to read the tagged NA in most other functions they are still viewed as NA
na_tag(x)

## -----------------------------------------------------------------------------
# Is used to print the na as well as their tag
print_tagged_na(x)

## -----------------------------------------------------------------------------
# Tagged NA's work identically to regular NAs
x

## -----------------------------------------------------------------------------
is.na(x)