search for: time22

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...