Nothing
require(rms)
x1 <- runif(100)
x2 <- runif(100)
y <- x1 + 2 * x2 + 3 * runif(100)
dd <- datadist(x1, x2); options(datadist='dd')
f <- ols(y ~ x1 * x2)
f
p <- Predict(f, x1, x2, np=20)
require(lattice)
bplot(p, lfun=wireframe, col='red')
bplot(p, lfun=wireframe, col='red', xlab='Age (days)', xlabrot=-10,
cex.lab=1.4)
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.