使用＆＃34;粘贴＆＃34;在r

Question

我计划使用粘贴来生成公式但我只知道如何做上半部分。上半部分是Surv(age, group)~x;但是如何在下半部分添加最终产品为Surv(age, group)~x + strata(factor(gender), bmi)？

这就是我现在所拥有的，它不起作用......

tmpfun <- function(x) as.formula(c(paste("Surv(age, group)", x , sep="~"), paste0("+ strata(factor(gender), bmi)")))

Answer 1

你快到了。我刚刚更改了paste0个地方。

tmpfun <- function(x) as.formula(paste0(paste("Surv(age, group)", x , sep="~"), "+ strata(factor(gender), bmi)"))

Answer 2

您可以将超过2个参数传递给paste。

tmpfun <- function(x) {
    as.formula(
        paste("Surv(age, group) ~", x, "+ strata(factor(gender), bmi)")
    )
}

虽然sprintf可能有点整洁。

tmpfun <- function(x) {
    as.formula(
        sprintf("Surv(age, group) ~ %s + strata(factor(gender), bmi)", x)
    )
}