###################################################
### chunk number 1: 
###################################################
library(frmaTools)


###################################################
### chunk number 2: 
###################################################
library(frmaExampleData)
data(list="AffyBatch133a")


###################################################
### chunk number 3: 
###################################################
batch.id <- rep(1:3, each=3)


###################################################
### chunk number 4: 
###################################################
object <- makeVectors(AffyBatch133a, batch.id)


###################################################
### chunk number 5: 
###################################################
library(frmaTools)


###################################################
### chunk number 6: 
###################################################
library(frmaExampleData)
data(list="AffyBatch133atag")


###################################################
### chunk number 7: 
###################################################
object <- convertPlatform(AffyBatch133atag, "hgu133a")


###################################################
### chunk number 8: 
###################################################
library(frmaTools)


###################################################
### chunk number 9: 
###################################################
library(frmaExampleData)
data(list="AffyBatch133plus2")


###################################################
### chunk number 10: 
###################################################
e <- hgu133plus2ASaFrma(AffyBatch133plus2)