Nothing
options( width=200, max.print=10000 )
# --------------------------------------
XRes <- readRDS("RDS/CM.rds")
XRes <- as.matrix(XRes$CI)
pdf(file="Plots/contour.pdf", height=5, width=6.8)
par(mar=c(4,5,0.5,0.5),cex.axis=1.2,cex.lab=1.4)
filled.contour( x = -20:20,
y = -20:20,
z = matrix(XRes[,3],41,41, byrow=TRUE),
xlab = expression(paste(alpha, " (Placebo)")),
ylab = expression(paste(alpha, " (Active)")),
nlevels = 8,
color.palette = colorRampPalette(c( "#993404","#D95F0E","#FE9929","#FFD9BE","#FFFFD4"), space="rgb"),
plot.axis = ( points( XRes[ sign(XRes[,18]) == sign(XRes[,19]), c(1,2)], pch=15, cex=0.6, col = c("#44447799")))
)
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.