Displaying 4 results from an estimated 4 matches for "time22".
Did you mean:
time2
2007 Oct 29
3
using survfit
...t11<-array(1,c(n2))
st12<-array(2,c(n2))
st21<-array(1,c(n2))
st22<-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[,"censor...
2007 Oct 18
1
programming question
...t11<-array(1,c(n2))
st12<-array(2,c(n2))
st21<-array(1,c(n2))
st22<-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[,"cens...
2007 Oct 19
0
calculating power of log rank test
...st12<-array(2,c(n2))
st21<-array(1,c(n2))
st22<-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&qu...
2008 Feb 14
0
help in simplyfiying programme
...st11<-array(1,c(n2))
st12<-array(2,c(n2))
st21<-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...