[Analogue-commits] r169 - pkg/man

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

Author: gsimpson
Date: 2010-05-19 19:29:15 +0200 (Wed, 19 May 2010)
New Revision: 169

Modified:
   pkg/man/getK.Rd
Log:
More reductions in package check timings

Modified: pkg/man/getK.Rd
===================================================================
--- pkg/man/getK.Rd	2010-05-13 22:03:21 UTC (rev 168)
+++ pkg/man/getK.Rd	2010-05-19 17:29:15 UTC (rev 169)
@@ -71,11 +71,20 @@
 \author{Gavin L. Simpson}
 \seealso{\code{\link{mat}}}
 \examples{
-## continue the example from join
-example(join)
+## Imbrie and Kipp Sea Surface Temperature
+data(ImbrieKipp)
+data(SumSST)
+data(V12.122)
 
+## merge training set and core samples
+dat <- join(ImbrieKipp, V12.122, verbose = TRUE)
+
+## extract the merged data sets and convert to proportions
+ImbrieKipp <- dat[[1]] / 100
+ImbrieKippCore <- dat[[2]] / 100
+
 ## fit a MAT model
-ik.mat <- mat(ImbrieKipp, SumSST, method = "SQchord")
+ik.mat <- mat(ImbrieKipp, SumSST, method = "chord")
 
 ## How many analogues gives lowest RMSE?
 getK(ik.mat)