File: scripts.R

package info (click to toggle)
nlme 3.1.168-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,732 kB
  • sloc: ansic: 3,048; fortran: 393; makefile: 2
file content (10 lines) | stat: -rw-r--r-- 445 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
 
## run reproduction scripts from the NLME book chapters
testdir <- system.file("scripts", package = "nlme", mustWork = TRUE)
scripts <- dir(testdir, pattern = "^ch[0-9]*\\.R$")
for(f in scripts) {
    writeLines(c("", strrep("=", nchar(f)), basename(f), strrep("=", nchar(f))))
    set.seed(3)
    options(warn = 1)  # chapters set digits
    source(file.path(testdir, f), echo = TRUE,
           max.deparse.length = Inf, keep.source = TRUE)
}