[Stpp-commits] r37 - pkg/R

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

Author: gabriele
Date: 2011-09-01 11:50:47 +0200 (Thu, 01 Sep 2011)
New Revision: 37

Modified:
   pkg/R/covst.r
Log:


Modified: pkg/R/covst.r
===================================================================
--- pkg/R/covst.r	2011-07-22 08:32:44 UTC (rev 36)
+++ pkg/R/covst.r	2011-09-01 09:50:47 UTC (rev 37)
@@ -55,9 +55,9 @@
             if (model=="matern") 
 			{
                   mods <- 7
-			if (param[2]<=0 | param[1]<=0) stop("Matérn model parameters must be strictly positive")
+			if (param[2]<=0 | param[1]<=0) stop("Matern model parameters must be strictly positive")
                   modt <- 7
-			if (param[3]<=0 | param[4]<=0) stop("Matérn model parameters must be strictly positive")
+			if (param[3]<=0 | param[4]<=0) stop("Matern model parameters must be strictly positive")
                   }
           }
             if (length(model)==2)
@@ -97,12 +97,12 @@
                 if (model[1]=="matern")
 			{
                   mods <- 7
-			if (param[2]<=0 | param[1]<=0) stop("Matérn model parameters must be strictly positive")
+			if (param[2]<=0 | param[1]<=0) stop("Matern model parameters must be strictly positive")
                   }
 		    if (model[2]=="matern")
 			{
                   modt <- 7
-			if (param[3]<=0 | param[4]<=0) stop("Matérn model parameters must be strictly positive")
+			if (param[3]<=0 | param[4]<=0) stop("Matern model parameters must be strictly positive")
                   }
               }
       }