swh:1:snp:bbee81fcdc4b36c131a8db323aa6b1ea43209e9a
Tip revision: 1cc05f63437c1a519a5bdc24b3cc669980d81d48 authored by Charles J. Geyer on 13 May 2019, 18:20:03 UTC
version 1.0-3
version 1.0-3
Tip revision: 1cc05f6
reaster1.R
library(aster)
data(radish)
options(digits=4) # avoid rounding differences
pred <- c(0,1,2)
fam <- c(1,3,2)
rout <- reaster(resp ~ varb + fit : (Site * Region), ~ 0 + fit : Block,
pred, fam, varb, id, root, data = radish)
srout1a <- summary(rout)
srout1b <- summary(rout, stand = FALSE)
foo <- new.env(parent = emptyenv())
bar <- suppressWarnings(try(load("reaster1.rda", foo), silent = TRUE))
if (inherits(bar, "try-error")) {
save(srout1a, srout1b, file = "reaster1.rda")
} else {
srout1a$object$iterations <- NULL
srout1b$object$iterations <- NULL
foo$srout1a$object$iterations <- NULL
foo$srout1b$object$iterations <- NULL
print(all.equal(srout1a, foo$srout1a, tol = 1e-4))
print(all.equal(srout1b, foo$srout1b, tol = 1e-4))
}