Nothing
library(MixfMRI, quietly = TRUE)
source("00-set_condition.r")
### Test 2d data.
da <- eval(parse(text = paste(case, sep = "")))
id <- !is.na(da)
PV.gbd <- da[id]
### plot hist
fn.plot <- paste("./plot/", case, "_hist.pdf", sep = "")
pdf(fn.plot, height = 4, width = 6)
hist(PV.gbd, nclass = 100,
xlab = "p-value", main = case)
dev.off()
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.