Я пишу функцию, в которой я хочу передать некоторые аргументы функции crrstep (пакет 'crrstep'), но я столкнулся с проблемой: каким-то образом аргумент 'событие' в моей функции не распознается, когда я ввожу его в crrstep. Я полагаю, что crrstep выглядит не так, как мне хотелось бы, но даже после нескольких часов поиска решений в Интернете, я не могу понять, как решить эту проблему (я довольно неопытен в программировании ...) , Любая помощь будет принята с благодарностью!

Вот некоторые данные симуляции (скорректированный пример из crrstep-документации) и пример моего кода:

n <- 500
ftime <- rexp(n)
fstatus <- sample(0:2,n,replace=TRUE)
testdata <- matrix(runif(8*n),nrow=n)
testdata <- cbind(ftime,fstatus,testdata)
dimnames(testdata)[[2]] <- c('ftime','fstatus','x1','x2','x3','x4','x5','x6','x7','x8')
testdata <- as.data.frame(testdata)
formula1 <- ftime ~ 1 + x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8
rm(fstatus,ftime,n)

test.fun <- function(x,data,event){
require(crrstep)
select.mod<- crrstep(formula=x,,etype=event, failcode=1, cencode=0,data=data, 
                   direction = "backward", criterion = "AIC", crr.object = TRUE, 
                   trace = FALSE)
#Rest of function omitted for now
print(select.mod)
}

#Test
test.fun(x=formula1,data=testdata,event=fstatus) 
#I get: Error in eval(expr, envir, enclos) : object 'event' not found"

Большое спасибо! обкрадывать