# NOT RUN {
ncells <- 10
ngenes <- 5
fData <- data.frame(primerid=LETTERS[1:ngenes])
cData <- data.frame(wellKey=seq_len(ncells))
mat <- matrix(rnorm(ncells*ngenes), ncol=ngenes)
sca <- FromMatrix('SingleCellAssay', mat, cData, fData)
stopifnot(inherits(sca, 'SingleCellAssay'))
##If there are mandatory keywords expected by a class, you'll have to manually set them yourself
cData$ncells <- 1
fd <- FromMatrix('FluidigmAssay', mat, cData, fData)
stopifnot(inherits(fd, 'FluidigmAssay'))
# }
Run the code above in your browser using DataLab