lrSS(HR, Sp, tp, mtp, a, f, alpha = 0.1, beta = 0.2,
p = 0.5)
data(btumors)
m1 <- mean(rep(btumors[,"ms"],btumors[,"n"]))
lrSS(HR=1.5,Sp=c(0.43,0.2,0.11),tp=c(1,2,3),mtp=m1,a=2,f=1,alpha=0.1,beta=0.2,p=0.5)
Run the code above in your browser using DataLab