Nothing
VS.QQ <-
function(Trad_data,MC_data,scatter_col="black",line_col="black",
title="QQ plot",xlab="Quantile for TradPerm data)",
ylab="Quantile for MCPerm data"){
qqplot(Trad_data,MC_data,main=title,col=scatter_col,
xlab=xlab,
ylab=ylab)
abline(a=0,b=1,lwd=1,col=line_col)
}
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.