Nothing
gaPlot <-
function(evalSumm){
graphics::plot(evalSumm[,4], type="l", ylab="Score", ylim=c(0, 1), lwd=2, main="Eval Scores by Iteration", xlab="Iteration")
graphics::lines(evalSumm[,6], col="red", lwd=2)
graphics::lines(evalSumm[,1], col="blue", lwd=2)
graphics::legend("topleft", colnames(evalSumm)[c(4, 6, 1)], pch=16, col=c("black", "red", "blue"))
}
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.