Nothing
"add_pseudo_counts" <-
function(amino,groups){
## Add pseudo counts to a binary matrix, defined seperately for each group
## The pseudo counts are calculated using the Henikoff method
new_amino<-amino
grouping<-as.factor(groups)
for(i in 1:length(levels(grouping))){
index<-grouping==levels(grouping)[i]
new_amino[index]<-amino[index,]+calculate_pseudo(amino,grouping,i)
}
return(new_amino)
}
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.