(cMW2 <- norMix2call(MW.nm2))
deriv(cMW2, "x")
(fMW1 <- as.function (MW.nm1))
(eMW3 <- as.expression(MW.nm3))
stopifnot(is.call (cMW2), is.call(norMix2call(MW.nm2, FALSE)),
is.function (fMW1), is.function (as.function (MW.nm4)),
is.expression(eMW3), is.expression(as.expression(MW.nm5))
)
Run the code above in your browser using DataLab