###################################################
### chunk number 1:  eval=FALSE
###################################################
## #line 68 "vignettes/frmaTools/inst/doc/frmaTools.Rnw"
## library(frmaTools)


###################################################
### chunk number 2:  eval=FALSE
###################################################
## #line 72 "vignettes/frmaTools/inst/doc/frmaTools.Rnw"
## files <- dir()


###################################################
### chunk number 3:  eval=FALSE
###################################################
## #line 77 "vignettes/frmaTools/inst/doc/frmaTools.Rnw"
## vectors <- makeVectorsAffyBatch(files, batch.id)


###################################################
### chunk number 4: 
###################################################
#line 104 "vignettes/frmaTools/inst/doc/frmaTools.Rnw"
library(frmaTools)


###################################################
### chunk number 5: 
###################################################
#line 108 "vignettes/frmaTools/inst/doc/frmaTools.Rnw"
library(frmaExampleData)
data(list="AffyBatch133atag")


###################################################
### chunk number 6: 
###################################################
#line 113 "vignettes/frmaTools/inst/doc/frmaTools.Rnw"
object <- convertPlatform(AffyBatch133atag, "hgu133a")