/usr/share/doc/r-cran-qtl/tests/testaugmentation.R is in r-cran-qtl 1.40-8-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | # Test augmentation with MQM
#
# Note: the full version of this test has moved to ./contrib/bin/rtest,
# as it takes a long time to run. The full version can be run with:
#
# cd contrib/bin
# rm CMakeCache.txt ; cmake -DTEST_R=TRUE
# make testR
library(qtl)
set.seed(1000)
version = mqm_version()
cat("R/qtl=",version$RQTL)
cat("R-MQM=",version$RMQM)
cat("MQM=",version$MQM)
testaugmentation <- function(cross, ...){
crossML <- mqmaugment(cross, ...)
res1 <- mqmscan(crossML,logtransform=TRUE)
list(res1)
}
data(listeria)
r <- testaugmentation(listeria)
if(!round(r[[1]][3,3],3)==0.307) stop("Listeria ML dataaugmentation error")
cat("testaugmentation.R, tests succesfully run!")
|