"#### Test for makeTPPSplineMats with both wheat datasets with asreml42\n"
"The following objects are being overwritten: BcZxx.df, BrZxx.df, BcrZxx.df"
"the argument\\(s\\) nsect are not legal arguments for 'tpsmmb'"
"#### Test makeTPPSplineMats with chick pea example with asreml42\n"
"#### Test for wheat76 spatial models with asreml42\n"
"the argument\\(s\\) nsect are not legal arguments for 'changeModelOnIC.asrtests', 'asreml'"
"Parallel processing has not been implemented for asreml.option set to mbf;"
"#### Test for wheat76 spatial models using mbf with asreml42\n"
"#### Test for wheat703 corr spatial models with asreml42\n"
"#### Test for wheat76 corr spatial models with asreml42\n"
"Both correlation functions are id or equivalent"
"#### Test for PSA_NW corb spatial models with asreml42\n"
"The following bound terms were discounted:"
"Add random Lane:Position and fix residual"
"Force positive nugget (residual) variance"
"Add random at(Half, '1'):Lane:Position and fix residual for Half 1"
"Add random at(Half, '2'):Lane:Position and fix residual for Half 2"
"Try corb(Lane, b = 1) and corb(Position, b = 1) for Half 2"
"#### Test for spatial models with asreml42\n"
"#### Test for nonfitting spatial models with asreml42\n"
"#### Test spatial modelling for chick pea example with asreml42\n"
"#### Test hetero variances for HEB25 with asreml42\n"
#hack to overcome asreml returning spaces

Error in `if (vpc.corr$ran[spat.term] %in% all.bounds.excl && vpc.corr$res == 
    "P") {
    asr <- corr.asrt$asreml.obj
    asr <- setvarianceterms(asr$call, terms = names(vpc.corr$res), 
        bound = "F", initial.values = 1, ignore.suffices = FALSE)
    vpc.corr <- getSectionVpars(asreml.obj = asr, sections = sections, 
        stub = stub, corr.facs = facs, asr4.2 = asr4.2)
    if (vpc.corr$ran[spat.term] %in% all.bounds.excl && vpc.corr$res == 
        "P") 
        warning("The spatial varinace has bound ", vpc.corr$ran[spat.term], 
            " and the Residual has bound P")
    else {
        corr.asrt <- as.asrtests(asr, wald.tab = corr.asrt$wald.tab, 
            test.summary = corr.asrt$test.summary, label = "Changed terms")
        corr.asrt$test.summary[corr.asrt$test.summary$terms == 
            "Changed terms", "action"] <- "Fix terms"
        corr.asrt$test.summary[corr.asrt$test.summary$terms == 
            "Changed terms", "denDF"] <- NA
    }
}`: missing value where TRUE/FALSE needed

all(...) is not TRUE

`actual`:   [32mFALSE[39m
`expected`: [32mTRUE[39m