[Pomp-commits] r940 - in pkg/mif2: . R

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

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

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


Modified: pkg/mif2/DESCRIPTION
===================================================================
--- pkg/mif2/DESCRIPTION	2014-04-24 21:13:09 UTC (rev 939)
+++ pkg/mif2/DESCRIPTION	2014-04-30 13:28:09 UTC (rev 940)
@@ -1,8 +1,8 @@
 Package: mif2
 Type: Package
 Title: Statistical inference for partially observed Markov processes
-Version: 1.0-1
-Date: 2014-04-18
+Version: 1.0-2
+Date: 2014-04-30
 Authors at R: c(person(given=c("Aaron","A."),family="King",
 		role=c("aut","cre"),email="kingaa at umich.edu"),
 	  person(given=c("Edward","L."),family="Ionides",role=c("aut")),
@@ -14,4 +14,4 @@
 License: GPL(>= 2)
 LazyData: true
 BuildVignettes: true
-Collate: aaa.R generics.R version.R mif2.R mif2-methods.R
+Collate: aaa.R generics.R mif2.R mif2-methods.R

Deleted: pkg/mif2/R/version.R
===================================================================
--- pkg/mif2/R/version.R	2014-04-24 21:13:09 UTC (rev 939)
+++ pkg/mif2/R/version.R	2014-04-30 13:28:09 UTC (rev 940)
@@ -1,14 +0,0 @@
-version <- function (at.least = NULL) {
-  version <- library(help=mif2)$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])
-  }
-}