[Dplr-commits] r844 - in pkg/dplR: . man

[noreply at r-forge.r-project.org]

Author: mvkorpel
Date: 2014-04-30 14:59:51 +0200 (Wed, 30 Apr 2014)
New Revision: 844

Modified:
   pkg/dplR/DESCRIPTION
   pkg/dplR/man/redfit.Rd
Log:
* reduced running time of R CMD check by using \dontrun in redfit.Rd
* moved runcrit() example so it isn't affected by \dontrun


Modified: pkg/dplR/DESCRIPTION
===================================================================
--- pkg/dplR/DESCRIPTION	2014-04-28 10:55:38 UTC (rev 843)
+++ pkg/dplR/DESCRIPTION	2014-04-30 12:59:51 UTC (rev 844)
@@ -3,7 +3,7 @@
 Type: Package
 Title: Dendrochronology Program Library in R
 Version: 1.6.1
-Date: 2014-04-28
+Date: 2014-04-30
 Authors at R: c(person("Andy", "Bunn", role = c("aut", "cph",
         "cre", "trl"), email = "andy.bunn at wwu.edu"), person("Mikko",
         "Korpela", role = c("aut", "trl")), person("Franco", "Biondi",

Modified: pkg/dplR/man/redfit.Rd
===================================================================
--- pkg/dplR/man/redfit.Rd	2014-04-28 10:55:38 UTC (rev 843)
+++ pkg/dplR/man/redfit.Rd	2014-04-30 12:59:51 UTC (rev 844)
@@ -333,6 +333,10 @@
 # Here is the redfit spec
 redf.x <- redfit(x, nsim = 500)
 
+# Acceptance region of number of runs test
+# (not useful with default arguments of redfit())
+runcrit(length(redf.x[["freq"]]))
+
 op <- par(no.readonly = TRUE) # Save to reset on exit
 par(tcl = 0.5, mar = rep(2.2, 4), mgp = c(1.1, 0.1, 0))
 
@@ -356,6 +360,7 @@
        bg = "white")
 box()
 
+\dontrun{
 # Second example with tree-ring data
 # Note the long-term low-freq signal in the data. E.g.,
 # crn.plot(cana157)
@@ -365,10 +370,6 @@
 x <- cana157[, 1]
 redf.x <- redfit(x, nsim = 1000)
 
-# Acceptance region of number of runs test
-# (not useful with default arguments of redfit())
-runcrit(length(redf.x[["freq"]]))
-
 plot(redf.x[["freq"]], redf.x[["gxxc"]],
      ylim = range(redf.x[["ci99"]], redf.x[["gxxc"]]),
      type = "n", ylab = "Spectrum (dB)", xlab = "Frequency (1/yr)",
@@ -389,7 +390,7 @@
        bg = "white")
 box()
 par(op)
-
 }
+}
 \keyword{ ts }
 \keyword{ htest }