Nothing
"E0vect" <-
function(xbar) {
#xk <- 1.717817
#E01p <- integrate(Psiphi.w, lower=-xk,upper=xk)$value
#E0pp <- integrate(Chiphi.w, lower=-30,upper=4)$value
i1 <- -0.05043133; i2 <- 0.003383146
E0 <- matrix(c(i1*xbar,i2),ncol=1)
E0}
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.