f_surgery <- function(u_surgery) { # pa_surgery = {}
u_surgery
}
f_los <- function(surgery, u_los) { # pa_los = {surgery}
surgery + u_los
}
f_survival <- function(surgery, los, u_survival) { # pa_survival = {sugery, los}
survival = los - 2 * surgery + u_survival
}
scm1 <- function(u_surgery, u_los, u_survival) {
surgery = f_surgery(u_surgery)
los = f_los(surgery, u_los)
survival = f_survival(surgery, los, u_survival)
c(surgery=surgery, los=los, survival=survival)
}
scm1(2, 1, 5)