################################################### ### chunk number 1: ################################################### options(SweaveHooks=list(fig=function(){par(cex.main=1.1, mar=c(4.1,4.1,2.6,2.1), mgp=c(2.25,0.5,0), tck=-0.02)})) ################################################### ### chunk number 2: stones ################################################### stones <- array(c(81,6,234,36,192,71,55,25), dim=c(2,2,2), dimnames=list(Sucess=c("yes","no"), Method=c("open","ultrasound"), Size=c("<2cm", ">=2cm"))) ################################################### ### chunk number 3: stones eval=FALSE ################################################### ## stones[1,,]/(stones[1,,]+stones[2,,]) ################################################### ### chunk number 4: stones2 eval=FALSE ################################################### ## stones2 <- stones[, , 1] + stones[, , 2] ## stones2[1, ]/(stones2[1, ]+stones2[2, ]) ################################################### ### chunk number 5: bagrisk-default eval=FALSE ################################################### ## excessRisk()