[Pomp-commits] r941 - in pkg/pompExamples: . R

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

Author: kingaa
Date: 2014-04-30 15:28:27 +0200 (Wed, 30 Apr 2014)
New Revision: 941

Removed:
   pkg/pompExamples/R/version.R
Modified:
   pkg/pompExamples/DESCRIPTION
Log:
- drop unnecessary 'version' function


Modified: pkg/pompExamples/DESCRIPTION
===================================================================
--- pkg/pompExamples/DESCRIPTION	2014-04-30 13:28:09 UTC (rev 940)
+++ pkg/pompExamples/DESCRIPTION	2014-04-30 13:28:27 UTC (rev 941)
@@ -1,8 +1,8 @@
 Package: pompExamples
 Type: Package
 Title: Statistical inference for partially observed Markov processes
-Version: 0.23-1
-Date: 2014-01-14
+Version: 0.23-2
+Date: 2014-04-30
 Maintainer: Aaron A. King <kingaa at umich.edu>
 Authors at R: c(person(given=c("Aaron","A."),family="King",role=c("aut","cre"),
 	   email="kingaa at umich.edu"),
@@ -21,4 +21,4 @@
 License: GPL (>= 2)
 LazyData: false
 BuildVignettes: true
-Collate: version.R budmoth.R pertussis.R
+Collate: budmoth.R pertussis.R

Deleted: pkg/pompExamples/R/version.R
===================================================================
--- pkg/pompExamples/R/version.R	2014-04-30 13:28:09 UTC (rev 940)
+++ pkg/pompExamples/R/version.R	2014-04-30 13:28:27 UTC (rev 941)
@@ -1,15 +0,0 @@
-version <- function (at.least = NULL) {
-  version <- library(help=pompExamples)$info[[1]]
-  version <- strsplit(version[pmatch("Version",version)]," ")[[1]]
-  version <- version[nchar(version)>0][2]
-  splv <- as.numeric(strsplit(version,"[-.]")[[1]])
-  if (is.null(at.least)) {
-    list(major=splv[1],minor=splv[2],rev=splv[3],version.string=version)
-  } else {
-    minv <- as.numeric(strsplit(as.character(at.least),"[-.]")[[1]])
-    (splv[1]>minv[1]) ||
-    (splv[1]==minv[1]) && (splv[2]>minv[2]) ||
-    (splv[1]==minv[1]) && (splv[2]==minv[2]) && (splv[3]>=minv[3])
-  }
-}
-