R/testARstatement.R

Defines functions .testARstatement

.testARstatement <- function(seg_eqp, out) {
    seg_eqp = strsplit(seg_eqp, " ")[[1]]
    seg = seg_eqp[1]
    EQp = as.numeric(seg_eqp[2])
    return(out[seg, ] == EQp)
}

Try the liayson package in your browser

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

liayson documentation built on Sept. 30, 2022, 1:07 a.m.