conext('Rcpp')
dat = data.frame( matrix(rnorm(1000),ncol=10) )
colnames(dat) <- paste('Sample', 1:10)
rownames(dat) <- paste( 'gene', 1:100)
samples <- data.frame(SampleID = 1:10, sname = colnames(dat) )
annotation <- data.frame( GeneID = paste( 'gene', 1:100), Start= 101:200 )
x <- BioData$new( cbind(annotation,dat), Samples=samples, name="testObject",namecol='sname', outpath = "" )
## now lets try something....
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.