Nothing
thresholdFingerprint <-
function(SCE, platform){
# data(platform.thresholds)
# apply threshold
thresholdTable<-platform.thresholds[[platform]]
SCE.threshold<-(SCE>thresholdTable[,"high"]) - (SCE<thresholdTable[,"low"])
return(SCE.threshold)
}
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.