File: test_scripts.R

package info (click to toggle)
sm 2.1-0-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 984 kB
  • ctags: 26
  • sloc: fortran: 133; sh: 22; makefile: 13
file content (14 lines) | stat: -rw-r--r-- 583 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
## Note: R CMD check may run these scripts from an installed package
scripts <- list.files(system.file("scripts", package = "sm"), ".*\.q$")
## these are interactive
omit2 <- match(c("bissell3.q", "dogs.q"), scripts)
scripts <- scripts[-omit2]
library(sm)
if(.Platform$OS.type == "unix") options(pager="cat") else options(pager="console")
postscript(file="test_scripts.ps")
for(z in scripts) {
    cat("\n============ running script `", z, "' ============\n", sep="")
    set.seed(123)
    source(system.file("scripts", z, package = "sm"), echo=TRUE)
    rm(list = ls(all = TRUE))
}