https://github.com/cran/quantreg
Raw File
Tip revision: 2f2f1b1baacd9c4f4e8e77aa46a209dff6bbe628 authored by Roger Koenker on 04 September 2012, 00:00:00 UTC
version 4.90
Tip revision: 2f2f1b1
run-demos.R
library(quantreg)

(dDIR <- system.file("demo", package = "quantreg"))
setwd(dDIR)
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)
}

back to top