# NOT RUN {
o <- kform_general(4,2,runif(6))
M <- matrix(rnorm(36),6,6)
discrepancy <- o - transform(transform(o,M),solve(M))
issmall(discrepancy) # should be TRUE
is.zero(discrepancy) # might be FALSE
# }
Run the code above in your browser using DataLab