aphp / rgho Goto Github PK

devtools::install_github("aphp/rgho")
library(rgho)

set.seed(42)

# Create a vector of ages (random values between 12 and 75)
ages <- sample(12:75, 20, replace = TRUE)
# Create a vector of genders (random values of 0 or 1)
# 0 is considered male, 1 is considered female
genders <- sample(0:1, 20, replace = TRUE)
# Create the dataframe
patients <- data.frame(age = ages, gender = genders)
print(patients)

# Compute the mean age
mean_age <- mean(patients$age)
print(mean_age)
# Compute the percentage of females
percentage_female <- sum(patients$gender == 1) / nrow(patients) * 100
print(percentage_female)

# compute mortality rate for each gender
mr_fmle = get_who_mr(mean_age, sex="FMLE", country="ESP", local = FALSE)
print(mr_fmle)
mr_mle = get_who_mr(mean_age, sex="MLE", country="ESP", local = FALSE)
print(mr_mle)

age = 58
sex = 0
country = "CAN" #Canada
sex_cat = ifelse(sex == 0, "FMLE", "MLE")
mr = get_who_mr(age, sex_cat, local = FALSE, country = country, year="latest")
[1] NA