Merge pull request #2 from serbinsh/updates2

Updates to examples.R. Added manual
serbinsh · Sep 30, 2013 · 820e2dd · 820e2dd
2 parents 12bb49e + d44eaaf
commit 820e2dd
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/Rprospect-manual.pdf b/Rprospect-manual.pdf
diff --git a/inst/examples/examples.R b/inst/examples/examples.R
@@ -1,7 +1,7 @@
 ####################################################################################################
 # R-PROSPECT Examples
 #
-# Last Updated: 05/07/2013 by SPS
+# Last Updated: 09/30/2013 by SPS
 ####################################################################################################
 
 
@@ -46,11 +46,11 @@ plot(LRT[,1],LRT[,2],type="l",xlab="Wavelength (nm)",
 ## Example PROSPECT Inversion
 
 ## Load test data
-poplar <- read.table(file=paste(.path.package("Rprospect"),"/extdata/poplar.txt",sep=""),
+poplar <- read.table(file=paste(path.package("Rprospect"),"/extdata/poplar.txt",sep=""),
                      header=T)   # test poplar dataset
-clover <- read.table(file=paste(.path.package("Rprospect"),"/extdata/clover.txt",sep=""),
+clover <- read.table(file=paste(path.package("Rprospect"),"/extdata/clover.txt",sep=""),
                      header=T)   # test clover dataset
-beech <- read.table(file=paste(.path.package("Rprospect"),"/extdata/beech.txt",sep=""),
+beech <- read.table(file=paste(path.package("Rprospect"),"/extdata/beech.txt",sep=""),
                      header=T)   # test beech dataset
 
 # Choose spec sample to invert