Revision 948ad5967298b4dc174f4d96511af60f38e9279e authored by Roger Koenker on 27 July 2019, 09:38:23 UTC, committed by cran-robot on 27 July 2019, 09:38:23 UTC
1 parent 2b3a85a
run-demos.R
library(quantreg)
(dDIR <- system.file("demo", package = "quantreg"))
set.seed(1) # since some demos randomly generate
cat("Running demos from package 'quantreg' : \n\n")
for(ff in list.files(dDIR, pattern="\\.R$", full.names = TRUE)) {
f <- basename(ff)
cat("\n", f," :\n", paste(rep.int("-", nchar(f)), collapse=''),
"\n", sep='')
source(ff, echo = TRUE)
}
Computing file changes ...
