if(require(beadarrayExampleData)){
data(exampleBLData)
logIntensity <- log2(getBeadData(exampleBLData, what = "Grn", array = 1))
## This will add a new entry called "LogGrn" to BLData
exampleBLData <- insertBeadData(exampleBLData, array = 1, what = "LogGrn", data = logIntensity)
head(exampleBLData[[1]])
## Supplying an existing entry to "what" will overwrite the current data
exampleBLData <- insertBeadData(exampleBLData, array = 1, what = "Grn", data = logIntensity)
head(exampleBLData[[1]])
}
Run the code above in your browser using DataLab