## ----设置，echo = false ----------------------------------------------------------------------------------------------------------------------------------------------库（LearnBioconductor）stopifnot（Biocinstaller :: Biocversion（）==“ 3.0”）## ----样式，echo，echo = false，结果='asis'--------------------------------------- BiocStyle::markdown() ## ----fun--------------------------------------------------------------------------------------------------- fun < - function（n）{x < - rnorm（n）y < - x + rnorm（n，sd = .5）lm（y〜x）} ## -------------------------------------------评估= false ------------------------------------------------------------------------------------------------------------------------＃##'side效果'＃for（i在1:10）＃消息（i）＃##＃## for后续计算结果＃sapply（1:10，function（i）{＃sum（rnorm（1000））＃}）## ----条件，eval = false --------------------------------------------------------------------------------------------＃sapply（1:10，function（i））{＃if（sum（rnorm（1000））> 0）{＃“ hi！”＃} else {＃“低！”＃}＃}）