rrank <-
function(beta,Time,X,n,w,Status){
error <- drop(log(Time)-beta%*%t(X))
tp <- numeric()
for(i in 1:n){
tp[i] <- sum(as.numeric((error[i]-error)<0)*abs(error[i]-error)*w*Status[i])
}
sum(tp)/n
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.