library(varpred)
library(shellpipes)
loadEnvironments()
anchor <- mean(dat$nitro)
vpred <- as.data.frame(varpred(mod, "nitro", isolate=FALSE, steps=200, isolate.value=anchor))
veff <- as.data.frame(varpred(mod, "nitro", steps=200, isolate.value=anchor))
saveEnvironment()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.