library(readxl)

lass<- read_excel("E:/R/prostate/2010+/variable.xlsx")
lass<-cbind(time,status,variable)
time<-lass$survival.months
status<-lass$OSD
variable<-lass[,3:14]
#
variable$subgroup<-relevel(factor(variable$subgroup),ref = "nscNECa")
variable$age<-relevel(factor(variable$age),ref = "70-")
variable$N<-relevel(factor(variable$N),ref = "N0")
variable$M<-relevel(factor(variable$M),ref = "M0")
variable$AJCCstage<-relevel(factor(variable$AJCCstage),ref = "I-III")
variable$csstage<-relevel(factor(variable$csstage),ref = "Localized")
variable$surg.LN<-relevel(factor(variable$surg.LN),ref = "Removed")
variable$radiation<-relevel(factor(variable$radiation),ref = "Yes")
variable$chemotherapy<-relevel(factor(variable$chemotherapy),ref = "Yes")
variable$brain<-relevel(factor(variable$brain),ref = "No")
variable$liver<-relevel(factor(variable$liver),ref = "No")
variable$lung<-relevel(factor(variable$lung),ref = "No")
#
as.matrix(variable)
time<-as.double(time)
status<-as.double(status)
surviv<-Surv(time,status)
#fix(variable)
fit <- glmnet(variable, surviv, family = "cox", alpha = 1)
> fit <- glmnet(variable, surviv, family = "cox", alpha = 1)Error in coxnet(x, is.sparse, ix, jx, y, weights, offset, alpha, nobs,: negative event times encountered;not permitted for Cox family