R/sequelae.R

In Chebuu/HPV-Serovars:

#' HPV.Sequelae
#' @source https://en.wikipedia.org/wiki/Human_papillomavirus_infection
#' @example data(HPV.Sequelae)
HPV.Sequelae = list(
    # 'Epidermodysplasia verruciformis' =c(more than 15 types)
    'Common warts' = c(2, 7, 22),
    'Plantar warts' = c(1, 2, 4, 63),
    'Flat warts' = c(3, 10, 28),
    'Anogenital warts' = c(6, 11, 42, 44), # And others
    'Anal dysplasia (lesions)' = c(6, 16, 18, 31, 53, 58),
    'Focal epithelial hyperplasia (mouth)' = c(13, 32),
    'Mouth papillomas' = c(6, 7, 11, 16, 32),
    'Oropharyngeal cancer' = c(16),
    'Verrucous cyst' = c(60),
    'Laryngeal papillomatosis' = c(6, 11)
)
# usethis::use_data(HPV.Sequelae)

#' HPV.GenitalCancerRisk
#' @references DOI: 10.1016/j.vaccine.2006.05.115
#' @source https://en.wikipedia.org/wiki/Human_papillomavirus_infection
HPV.GenitalCancerRisk = list(
    'Highest risk' = c(16, 18, 31, 45),
    'Other high-risk' = c(33, 35, 39, 51, 52, 56, 58, 59),
    'Probably high-risk' = c(26, 53, 66, 68, 73, 82)
)
# usethis::use_data(HPV.GenitalCancerRisk)