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)
}
noemiandor/liayson documentation built on March 31, 2022, 7:39 a.m.