###################################################
### chunk number 1: 
###################################################
#line 66 "vignettes/marray/inst/doc/marrayClasses.Rnw"
library("marray")
data(swirl)


###################################################
### chunk number 2: R
###################################################
#line 152 "vignettes/marray/inst/doc/marrayClasses.Rnw"
getClassDef("marrayLayout")


###################################################
### chunk number 3: R
###################################################
#line 190 "vignettes/marray/inst/doc/marrayClasses.Rnw"
getClassDef("marrayInfo")


###################################################
### chunk number 4: R
###################################################
#line 204 "vignettes/marray/inst/doc/marrayClasses.Rnw"
getClassDef("marrayRaw")


###################################################
### chunk number 5: R
###################################################
#line 231 "vignettes/marray/inst/doc/marrayClasses.Rnw"
getClassDef("marrayNorm")


###################################################
### chunk number 6: 
###################################################
#line 259 "vignettes/marray/inst/doc/marrayClasses.Rnw"
zebra.RG<-as.data.frame(cbind(c("swirl","WT","swirl","WT"),
c("WT","swirl","WT","swirl")))
dimnames(zebra.RG)[[2]]<-c("Cy3","Cy5")
zebra.samples<-new("marrayInfo",
		    maLabels=paste("Swirl array ",1:4,sep=""), 
		    maInfo=zebra.RG,
		    maNotes="Description of targets for Swirl experiment")
zebra.samples


###################################################
### chunk number 7: 
###################################################
#line 284 "vignettes/marray/inst/doc/marrayClasses.Rnw"
L<-slot(swirl, "maLayout")
L@maNgr


###################################################
### chunk number 8: 
###################################################
#line 291 "vignettes/marray/inst/doc/marrayClasses.Rnw"
slotNames("marrayLayout")
slotNames(swirl)


###################################################
### chunk number 9: 
###################################################
#line 304 "vignettes/marray/inst/doc/marrayClasses.Rnw"
validObject(maLayout(swirl), test=TRUE)


###################################################
### chunk number 10:  eval=FALSE
###################################################
## #line 315 "vignettes/marray/inst/doc/marrayClasses.Rnw"
## showMethods(classes="marrayLayout")
## showMethods("show",classes="marrayLayout") 


###################################################
### chunk number 11: 
###################################################
#line 325 "vignettes/marray/inst/doc/marrayClasses.Rnw"
showMethods("summary")


###################################################
### chunk number 12: 
###################################################
#line 332 "vignettes/marray/inst/doc/marrayClasses.Rnw"
summary(swirl)


###################################################
### chunk number 13: 
###################################################
#line 347 "vignettes/marray/inst/doc/marrayClasses.Rnw"
swirl[1:100,2:3]


###################################################
### chunk number 14: 
###################################################
#line 377 "vignettes/marray/inst/doc/marrayClasses.Rnw"
swirl.layout<-maLayout(swirl)
maNspots(swirl)
maNspots(swirl.layout)
maNgr(swirl)
maNgc(swirl.layout)
maPrintTip(swirl[1:10,3])


###################################################
### chunk number 15: 
###################################################
#line 396 "vignettes/marray/inst/doc/marrayClasses.Rnw"
maNotes(swirl.layout)
maNotes(swirl.layout)<- "New value"
maNotes(swirl.layout)


###################################################
### chunk number 16: 
###################################################
#line 404 "vignettes/marray/inst/doc/marrayClasses.Rnw"
L<-new("marrayLayout")
L
maNgr(L)<-4


###################################################
### chunk number 17: 
###################################################
#line 423 "vignettes/marray/inst/doc/marrayClasses.Rnw"
swirl.norm<-as(swirl, "marrayNorm")    


###################################################
### chunk number 18: 
###################################################
#line 439 "vignettes/marray/inst/doc/marrayClasses.Rnw"
maPlate(swirl)<-maCompPlate(swirl,n=384)