H A D | cpp11.R | 178 vacc1a <- function(age, female, ily) { argument 180 p <- p * if (female) 1.25 else 0.75 187 vacc1 <- function(age, female, ily) { argument 197 vacc2 <- function(age, female, ily) { argument 199 p <- p * ifelse(female, 1.25, 0.75) 208 female <- sample(c(T, F), n, rep = TRUE) globalVar 211 all.equal(vacc1(age, female, ily), vacc2(age, female, ily)), 212 all.equal(vacc1(age, female, ily), vacc3(age, female, ily)) 217 vacc1 = vacc1(age, female, ily), 218 vacc2 = vacc2(age, female, ily), [all …]
|