R/check.R

`check` <-
function (x, v, l1, l2) 
{
    if (v[l1, l2] > 0) {
        print("WARNING from routine ", x, ": element", l1, l2, 
            "already non-zero")
    }
    v[l1, l2] <- x
    v
}

Try the dixon package in your browser

Any scripts or data that you put into this service are public.

dixon documentation built on May 2, 2019, 1:02 a.m.