r b@fcs.filename
print(xtable(data.frame(beads.data@clustering.stats[,'APC', 1:6])), type='html')
$log_{10}(MEF) = r b@beta
\times log_{10}(r b@gating.parameter
) + r b@alpha
$
plot(b)
library(xtable) print( xtable(b@m), type='html' )
library(xtable) print( xtable(t(data.frame(b@description)[1,])), type='html' )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.