Nothing
r bead.data@fcs.filename
K <- dim(bead.data@beads.mef)[1]+1 for (p in names(bead.data@mef.transform)) { d <- data.frame(bead.data@clustering.stats[,p, 1:K]) names(d) <- paste(p, 1:K) print(xtable(d), type='html') }
plot(bead.data)
print( xtable(bead.data@mef.transform$APC$m), type='html' )
print( xtable(t(data.frame(bead.data@description)[1,])), type='html' )
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.