Nothing
.poolFit <- function(meth,unmeth,p,q,e,s_t,s_c){
# calculate methylation reads count variance on common scale
w_t <-.calculateW(meth,s_t,e)
w_c <-.calculateW(unmeth,s_c,e)
# locfit
fit_t <- .locfitW(p,q,w_t)
fit_c <- .locfitW(p,q,w_c)
res <- list(fit_t,fit_c)
return(res)
}
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.