Nothing
weightDf = function(df,exclude=c("double","controlN2","controlP2","controlP1N1","controlN1")){
#if("weight"%in%colnames(df))
# weights = df$weight else
weights = rep(1,nrow(df))
weights[df$Type%in%exclude] = 0
df$weight = weights
df
}
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.