### R代码来自Vignette Source'MarrayClasshort.rnw'########################################################### ###代码块数字1：MarrayClassesshort.rnw：53-55 ###########################################################################################：98-100 ########################## slotnames（“ marraylayout”）slotnames（漩涡）####################################################################################，“ wt”，“漩涡”，“ wt”），c（“ wt”，“ swirl”，“ wt”，“ swirl”）））dimnames（zebra.rg）[[2]] <-c（”cy3“，“ cy5”）Zebra.Samples <-new（“ Marrayinfo”，Malabels =粘贴（“漩涡阵列”，1：4，Sep =“”），Mainfo = Zebra.rg，Manotes，Manotes =“目标描述”的目标描述漩涡实验”）Zebra.Samples ################################################ ###代码块编号4：MarrayClassesshort.rnw：134-136 ############################## l <-slot（漩涡，“ Malayout”）l@mangr ################################################################################### showmethods（“摘要”，class =“ marraylayout”）########################################################### ### code chunk number 6: marrayClassesShort.Rnw:159-160 ################################################### showMethods("print") ################################################### ### code chunk number 7: marrayClassesShort.Rnw:166-167 ################################################### summary(swirl) ################################################### ### code chunk number 8: marrayClassesShort.Rnw:181-182 ################################################### swirl[1:100,2:3] ################################################### ### code chunk number 9: marrayClassesShort.Rnw:210-216 ################################################### swirl.layout<-maLayout(swirl) maNspots(swirl) maNspots(swirl.layout) maNgr(swirl) maNgc(swirl.layout) maPrintTip(swirl[1:10,3]) ################################################### ### code chunk number 10: marrayClassesShort.Rnw:228-231 ################################################### maNotes(swirl.layout) maNotes(swirl.layout)<- "New value" maNotes(swirl.layout) ################################################### ### code chunk number 11: marrayClassesShort.Rnw:236-239 ################################################### L<-new("marrayLayout") L maNgr(L)<-4 ################################################### ### code chunk number 12: marrayClassesShort.Rnw:253-254 ################################################### swirl.norm<-as(swirl, "marrayNorm") ################################################### ### code chunk number 13: marrayClassesShort.Rnw:269-270 ################################################### maPlate(swirl)<-maCompPlate(swirl,n=384)