Frequency of each HPO term WITHIN all associated diseases (as opposed to the general population). In order of increasing frequency:
"Very rare (<4-1%)"
"Occasional (29-5%)"
"Frequent (79-30%)"
"Very frequent (99-80%)"
"Obligate (100%)"
data("hpo_frequencies")data.table
annot <- load_phenotype_to_genes("phenotype.hpoa")
hpo_frequencies <- HPOExplorer:::parse_pheno_frequency(annot=annot)
hpo_frequencies <- HPOExplorer:::as_ascii(dat=hpo_frequencies)
data.table::setcolorder(hpo_frequencies,c("disease_id","hpo_id"))
usethis::use_data(hpo_frequencies, overwrite = TRUE)