Displaying 4 results from an estimated 4 matches for "censortime".
2007 Oct 29
3
using survfit
...22<-array(2,c(n2))
strata=matrix(c(st11,st12,st21,st22))
time11=array(rweibull(n2,a11,1))
time12=array(rweibull(n2,a11,1))
time21=array(rweibull(n2,a21,1))
time22=array(rweibull(n2,a22,1))
time=matrix(c(time11, time12, time21, time22))
censorTime=runif(n,0,3)
m=cbind(treatgrp,strata,time,censorTime)
colnames(m)=c(“treat”,”strata”,”time”,”censorTime”)
act.surv.time<-pmin(m[,"time"],m[,"censorTime"])
m<-cbind(m,act.surv.time)
m<-cbind(m,0)
m[m[,3]<m[,4],6]&l...
2007 Oct 18
1
programming question
...22<-array(2,c(n2))
strata=matrix(c(st11,st12,st21,st22))
time11=array(rweibull(n2,a11,1))
time12=array(rweibull(n2,a12,1))
time21=array(rweibull(n2,a21,1))
time22=array(rweibull(n2,a22,1))
time=matrix(c(time11, time12, time21, time22))
censorTime=runif(n,0,1)
m=cbind(treatgrp,strata,time,censorTime) .
colnames(m)=c(“treat”,”strata”,”time”,”censorTime”)
act.surv.time<-pmin(m[,"time"],m[,"censorTime"])
m<-cbind(m,act.surv.time)
m<-cbind(m,0)
m[m[,3]>m[,4],6]...
2007 Oct 19
0
calculating power of log rank test
...strata=matrix(c(st11,st12,st21,st22))
time11=array(rweibull(n2,a11,1))
time12=array(rweibull(n2,a12,1))
time21=array(rweibull(n2,a21,1))
time22=array(rweibull(n2,a22,1))
time=matrix(c(time11, time12, time21, time22))
censorTime=runif(n,0,1)
m=cbind(treatgrp,strata,time,censorTime)
colnames(m)=c(?treat?,?strata?,?time?,?censorTime?)
act.surv.time<-pmin(m[,"time"],m[,"censorTime"])
m<-cbind(m,act.surv.time)
m<-cbind(m,0)...
2008 Feb 14
0
help in simplyfiying programme
...21<-array(1,c(n2))
st22<-array(2,c(n2))
strata=matrix(c(st11,st12,st21,st22))
time11=array(rweibull(20,1,1/12))
time12=array(rweibull(20,1,1/12))
time21=array(rweibull(30,1,0.25))
time22=array(rweibull(30,1,0.25))
time=matrix(c(time11, time12, time21, time22))
censorTime=runif(n,0,2)
m=cbind(treatgrp,strata,time,censorTime)
colnames(m)=c(“treat”,”strata”,”time”,”censorTime”)
eventTime<-pmin(m[,"time"],m[,"censorTime"])
m<-cbind(m,eventTime)
m<-cbind(m,0)
m[m[,3]<m[,4],6]<-1
colnames(m)[6]<-"c...