Nothing
prior.temporal_proximity_is_good <-
function(term_pairs, insitu_signature){
#prior = temporal distance of tested stages -- as coexistence increasingly unlikely with growing temporal distance.
stages <- as.numeric(substr(term_pairs, 1,1))
ds <- expand.grid(stages, stages)
prior <- -max(abs(ds[,1]-ds[,2]))
#adjust prior to number of tested genes
prior <- prior*length(insitu_signature)*0.01
return (prior)
}
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.