## ----宏，echo = false --------------------------------------------------------------------------------------------------------------------------------------------------宏<-函数（名称，pkg，description）sprintf（'％s（“％s”）`％s％s'，name，pkg，description，do.call（名称，列表（pkg）））inline < - function（cmd）sprintf（'---------------------------------------------------------------------------------------------------图（汽车）## ----图，图cap =“常规图。“，echo = false ----绘图（汽车）## ----宽，fine，图。wide = true，echo = false ----绘图（汽车）## ----小，fig.cap =“小图。图small = true，echo = false ----绘图（汽车）## ---- m mtcars ------------------------------------------------------------------------------------------------------------------------------------------------- knitr::kable( head(mtcars[，1：8]，10），标题='mtcars`。'的前10行的表------------------------------------------------------------------------ sessionInfo（）