Searched +refs:nwtco +refs:extra (Results 1 – 2 of 2) sorted by relevance
| /dports/math/R-cran-survey/survey/inst/doc/ |
| H A D | epi.Rnw | 125 data(nwtco)
149 subcoh <- nwtco$in.subcohort
166 nwtco$eventrec<-rep(0,nrow(nwtco))
167 nwtco.extra<-subset(nwtco, rel==1)
168 nwtco.extra$eventrec<-1
169 nwtco.expd<-rbind(subset(nwtco,in.subcohort==1),nwtco.extra)
170 nwtco.expd$stop<-with(nwtco.expd,
172 nwtco.expd$start<-with(nwtco.expd,
174 nwtco.expd$event<-with(nwtco.expd,
176 nwtco.expd$pwts<-ifelse(nwtco.expd$event, 1, 1/with(nwtco,mean(in.subcohort | rel)))
[all …]
|
| /dports/math/R-cran-survey/survey/vignettes/ |
| H A D | epi.Rnw | 125 data(nwtco)
149 subcoh <- nwtco$in.subcohort
166 nwtco$eventrec<-rep(0,nrow(nwtco))
167 nwtco.extra<-subset(nwtco, rel==1)
168 nwtco.extra$eventrec<-1
169 nwtco.expd<-rbind(subset(nwtco,in.subcohort==1),nwtco.extra)
170 nwtco.expd$stop<-with(nwtco.expd,
172 nwtco.expd$start<-with(nwtco.expd,
174 nwtco.expd$event<-with(nwtco.expd,
176 nwtco.expd$pwts<-ifelse(nwtco.expd$event, 1, 1/with(nwtco,mean(in.subcohort | rel)))
[all …]
|