tests/evalGradCoef.R

library(MonoPoly)

par <- rep(1,8)
lapply(MonoPoly:::evalGradCoef(par, ptype="El", ctype="c2"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="El", ctype="cge0"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="EHH", ctype="c2"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="EHH", ctype="cge0"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="P", ctype="c2"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="P", ctype="cge0"), zapsmall)

par <- 1:8
lapply(MonoPoly:::evalGradCoef(par, ptype="El", ctype="c2"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="El", ctype="cge0"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="EHH", ctype="c2"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="EHH", ctype="cge0"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="P", ctype="c2"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="P", ctype="cge0"), zapsmall)

par <- 8:1
lapply(MonoPoly:::evalGradCoef(par, ptype="El", ctype="c2"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="El", ctype="cge0"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="EHH", ctype="c2"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="EHH", ctype="cge0"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="P", ctype="c2"), zapsmall)
lapply(MonoPoly:::evalGradCoef(par, ptype="P", ctype="cge0"), zapsmall)

Try the MonoPoly package in your browser

Any scripts or data that you put into this service are public.

MonoPoly documentation built on Dec. 23, 2017, 5:40 p.m.