Displaying 1 result from an estimated 1 matches for "egfr_crea_ckdepi".
2018 May 23
0
MICE passive imputation formula
...] <- "~I(weight/(height/100)^2)"
pred[c("weight", "length"), "BMI"] <- 0
imp <- mice(Data, method = meth, predictorMatrix = pred, maxit = 10, m = 5)
But what If the formula for a variable is much more complicated, like with CKD-epi. The formula is:
egfr_crea_ckdepi = function(creatinine, age, is_female, is_male) {
if (length(creatinine) != length(age) ||
length(creatinine) != length(is_female) ||
length(creatinine) != length(is_black)) {
stop("input vector lengths must match!")
}
a = ifelse(!is_black, ifelse(!is_female, 141,...