功能R的Cox危害

Question

我對R中的變量有疑問。

尋找我的簡單功能：

 CoxStep <- function(dataset,a,b){  
 m1 = coxph(Surv(b,a)~.-dataset[,b]-dataset[,a] ,data=dataset)
  summary(m1)
  }

我將函數調用如下：

CoxStep（數據，Alive1，FU_3M）

其中FU_3M是時間列Alive1是事件列，數據是我的數據集，其中包含下面的變量和其他變量。

函數看不到此Alive1和FU_3M。

你可以幫幫我嗎？ 有什么主張嗎？

Answer 1

最簡單的解決方法是讓您的函數采用公式作為參數：

CoxStep <- function(dataset, form){  
 m1 = coxph(form, data=dataset)
  summary(m1)
  }

然后使用CoxStep(dataset, Surv(a, b) ~ . - a - b)進行調用。

如果需要該公式，可以構建一個輔助函數：

my_form = function(a, b) {
    as.formula(sprintf('Surv(%1$s, %2$s) ~ . - %1$s - %2$s', a, b)
}

my_form可以用字符串調用，例如my_form('a', 'b') ，因此您可以將其與CoxStep(dataset, my_form('a', 'b'))放在一起。