pattern_char <- "__++++*o-------+--+-o-o-o+o+oooooo"
# replace "_" with "-"
pattern2_char <- recode_missing_visits(
pattern_char,
missing_is = "_",
missing_becomes = "-"
)
# replace "o" with "+"
pattern3_char <- recode_missing_visits(pattern2_char)
# replace "*" with "+"
pattern4_char <- recode_missing_visits(pattern3_char, missing_is = "*")
measure_abstinence_period(pattern4_char)
Run the code above in your browser using DataLab