### R代码来自Vignette Source'Marrayinput.rnw'############################################################ ###代码块数字1：Marrayinput.rnw：120-122 ############################################################################################：153-155 ########################## datadir <-system.file（“ swirldata”，package =“ marray”）dir（datadir）#########################################################################################file.path（datadir，“ swirlsample.txt”））摘要（swirltargets）################################################################ ###代码块编号4：Marrayinput.rnw：203-205 ###########################################################）名称（galinfo）#################################################### ###代码块编号5：Marrayinput.rnw：245-248 ####################################################### swirl.gnames <-read.marrayinfo（file.path（datadir，“ fish.gal”），info.id = 4：5，labels = 5，skip = 21）摘要（旋转。gnames）############################################# ###代码块数字6：marrayinput.rnw：255-262 ############################################################，nsr = 22，nsc = 24，skip = 21，ctl.col = 4）ctl <-rep（“ control”，manspots（swirl.layout））ctl [macontrols（swirl.layout）！=“ control）！=“控制”] <- “探针” MaControls（swirl.layout）< - factor（ctl）摘要（swirl.layout）################################################################################布局= galinfo $ layout，gnames = galinfo $ gnames，target = swirltargets）摘要（mraw）