Nothing
.estimateP <- function(meth, unmeth, size_t, size_c) {
temp_t <- t(t(meth)/size_t)
temp_c <- t(t(unmeth)/size_c)
temp_n <- temp_t+temp_c
p <- rowSums(temp_t)/rowSums(temp_n)
p[is.na(p)] <- 0.5
p[is.infinite(p)] <- 0.5
return(p)
# which(is.na(p))
# which(is.infinite(p))
}
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.