data(ova)
attach(ova)
X <- cbind(karn,diam,figo)
X <- apply(X,2,function(x){(x-mean(x))/sqrt(var(x))})#standardize covariates
fit <- cox.ridge(Surv(time,death)~X,lambda=1,lambdaFixed=TRUE)
fit ##regression coefficients correspond to the standardized covariates
Run the code above in your browser using DataLab