Biostatistics, clinical trial design, critical thinking about drugs and healthcare, skepticism, the scientific process.
y <- 7 z <- 1 y.last <- 0 while (abs(y.last-y)>1e-5) { y.last <- y y.temp <- 0.5*(y+1/z) z <- 0.5*(z+1/y) y <- y.temp print(y) }