来自vignette源的marrayClasses的代码。Rnw ' ################################################### ### 代码块1号:marrayClasses。Rnw: 65 - 67 ################################################### 库(“marray”)数据(漩涡 ) ################################################### ### 代码块2号:R ################################################### getClassDef(“marrayLayout ") ################################################### ### 代码块3号:R ################################################### getClassDef(“marrayInfo ") ################################################### ### 代码块4号:R ################################################### getClassDef(“marrayRaw ") ################################################### ### 代码块5号:R ################################################### getClassDef(“marrayNorm ") ################################################### ### 代码块6号:marrayClasses。Rnw: 258 - 266 ################################################### zebra.RG < -as.data.frame (cbind (c(“漩涡”,“WT”,“漩涡”,“WT”),c(“WT”、“漩涡”,“WT”、“漩涡”)))dimnames (zebra.RG) [[2]] < - c(“Cy3”、“Cy5”)斑马。samples<-new("marrayInfo"， maLabels=paste("Swirl array "，1:4,sep="")， maInfo=斑马。RG, maNotes=“旋转实验的目标描述”)斑马。样品 ################################################### ### 代码块7号:marrayClasses。Rnw: 283 - 285 ################################################### L <槽L@maNgr(漩涡,“maLayout”) ################################################### ### 代码块8号:marrayClasses。Rnw: 290 - 292 ################################################### slotNames(“marrayLayout”)slotNames(漩涡 ) ################################################### ### 代码块9号:marrayClasses。Rnw: 303 - 304 ################################################### validObject (maLayout(漩涡),测试= TRUE ) ################################################### ### 代码块10号:marrayClasses。Rnw: 314 - 316 (eval = FALSE ) ################################################### ## showMethods(类=“marrayLayout”)# # showMethods(“秀”,类= " marrayLayout ") ################################################### ### 代码块11号:marrayClasses。Rnw: 324 - 325 ################################################### showMethods(“总结 ") ################################################### ### 代码块12号:marrayClasses。Rnw: 331 - 332 ################################################### 总结(漩涡 ) ################################################### ### 代码块13号:marrayClasses。Rnw: 346 - 347 ################################################### 漩涡(1:10 0,2:3 ] ################################################### ### 代码块14号:marrayClasses。Rnw: 376 - 382 ################################################### swirl.layout < -maLayout(漩涡)maNspots(漩涡)maNspots (swirl.layout) maNgr(漩涡)maNgc swirl.layout maPrintTip(漩涡[1:10,3 ]) ################################################### ### 代码块数量15:marrayClasses。Rnw: 395 - 398 ################################################### maNotes (swirl.layout) maNotes (swirl.layout) < -“新价值”maNotes (swirl.layout ) ################################################### ### 代码块数量16:marrayClasses。Rnw: 403 - 406 ################################################### L < -(“marrayLayout”)L maNgr (L) < 4 ################################################### ### 代码块数量17:marrayClasses。Rnw: 422 - 423 ################################################### 漩涡。norm<-as(swirl, "marrayNorm") ################################################### ### code chunk number 18: marrayClasses.Rnw:438-439 ################################################### maPlate(swirl)<-maCompPlate(swirl,n=384)