Nothing
library(MonoPoly)
par <- rep(1,8)
MonoPoly:::evalCoef(par, ptype="El", ctype="c2")
MonoPoly:::evalCoef(par, ptype="El", ctype="cge0")
MonoPoly:::evalCoef(par, ptype="EHH", ctype="c2")
MonoPoly:::evalCoef(par, ptype="EHH", ctype="cge0")
MonoPoly:::evalCoef(par, ptype="P", ctype="c2")
MonoPoly:::evalCoef(par, ptype="P", ctype="cge0")
par <- 1:8
MonoPoly:::evalCoef(par, ptype="El", ctype="c2")
MonoPoly:::evalCoef(par, ptype="El", ctype="cge0")
MonoPoly:::evalCoef(par, ptype="EHH", ctype="c2")
MonoPoly:::evalCoef(par, ptype="EHH", ctype="cge0")
MonoPoly:::evalCoef(par, ptype="P", ctype="c2")
MonoPoly:::evalCoef(par, ptype="P", ctype="cge0")
par <- 8:1
MonoPoly:::evalCoef(par, ptype="El", ctype="c2")
MonoPoly:::evalCoef(par, ptype="El", ctype="cge0")
MonoPoly:::evalCoef(par, ptype="EHH", ctype="c2")
MonoPoly:::evalCoef(par, ptype="EHH", ctype="cge0")
MonoPoly:::evalCoef(par, ptype="P", ctype="c2")
MonoPoly:::evalCoef(par, ptype="P", ctype="cge0")
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.