分类变量的“tt”函数中出现意外符号

如何解决分类变量的“tt”函数中出现意外符号

我有一个包含时间、事件和 4 个预测变量的数据集，其中“Q.V4”是需要使用 tt 函数转换的分类变量。此变量有 4 个级别 - Q1、Q2、Q3、Q4

F1 <- data.frame(
  time=c(102,48,84,72,66,90),event=c(0,1,0),v1=c(72,76,74,61),v2=c(1,1),v3=c(1,2,2),Q.V4=c("Q2","Q4","Q3","Q1","Q2","Q1"))

coxph(Surv(time,event)~v1 + v2 + v3 + tt(Q.V4),data = F1,tt = function(Q.V4,time,...){matrix <- model.matrix(~Q.V4)[,-1] matrix*time)})                                                                                                                                                                                             

我收到以下错误消息

unexpected symbol in "function(Q.V4,...){ matrix <- model.matrix(~Q.V4)[,-1]"                                                                                          

如果您能告诉我我在哪里犯了错误，并尽早帮助我编写正确的代码，我将不胜感激。提前致谢。