Estoy escribiendo una función en la que quiero pasar algunos argumentos a la función crrstep (paquete 'crrstep'), pero encontré un problema: de alguna manera, el argumento 'evento' en mi función no se reconoce cuando lo ingreso en crrstep. Supongo que Crrstep se ve en un entorno diferente al que quiero que se vea, pero incluso después de horas de buscar soluciones en la web, parece que no puedo resolverlo (no tengo mucha experiencia en programación ...) . Cualquier ayuda sería muy apreciada!

Aquí hay algunos datos de simulación (ejemplo ajustado de la documentación crrstep) y un ejemplo de mi código:

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"

¡Muchas gracias! Robar