R/discrep.logical.R

discrep.logical <-
function(datavec, targetvec, weightvec) {
    dat <- wpct(datavec, weightvec)
    out <- c(targetvec[2] - dat[1], targetvec[1] - dat[2])
    out
}

Try the anesrake package in your browser

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

anesrake documentation built on May 2, 2019, 1:42 p.m.