Replace symbols with their reciprocals

Given an mvp object, replace one or more symbols with their reciprocals

Usage

invert(p, v)

Arguments

p

Object (coerced to) mvp form

v

Character vector of symbols to be replaced with their reciprocal; missing interpreted as replace all symbols

Author

Robin K. S. Hankin

See also

subs

Examples

invert("x")
#> mvp object algebraically equal to
#> x^-1

(P <- as.mvp("1 + a + 6*a^2 - 7*a*b + 8*b*c"))
#> mvp object algebraically equal to
#> 1 + a - 7 a b + 6 a^2 + 8 b c
invert(P, "b")
#> mvp object algebraically equal to
#> 1 + a - 7 a b^-1 + 6 a^2 + 8 b^-1 c

P |> invert("a") == P |> subs(d = 1/as.mvp("a"))
#> [1] FALSE