File: test_scripts.R

package info (click to toggle)
sm 2.2-4.1-1
  • links: PTS
  • area: main
  • in suites: squeeze, wheezy
  • size: 1,120 kB
  • sloc: makefile: 1
file content (14 lines) | stat: -rw-r--r-- 584 bytes parent folder | download | duplicates (2) 
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))
}