flattenOutput <-
function(output){
ex<-output$snpContigExpr
colnames(ex)<-paste(colnames(ex),'_expr',sep='')
gt<-output$genos
colnames(gt)<-paste(colnames(gt),'_geno',sep='')
return(cbind(output$res,ex,gt))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.