o <- kform_general(3,2,runif(3))
M <- matrix(rnorm(9),3,3)
discrepancy <- o - pullback(pullback(o,M),solve(M))
discrepancy # print method might imply coefficents are zeros
issmall(discrepancy) # should be TRUE
is.zero(discrepancy) # might be FALSE
Run the code above in your browser using DataLab