R/simplify.r

simplify.eq = function(expr, env=parent.frame(), scache=new.env()) {
  res = Deriv::Simplify(expr, env, scache)
  if (identical(res,TRUE)) {
    res = quote(0==0)
  }
  res
}
skranz/symbeqs documentation built on May 30, 2019, 3:04 a.m.