[Yuima-commits] r325 - pkg/yuima/R

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

Author: iacus
Date: 2014-09-03 19:30:59 +0200 (Wed, 03 Sep 2014)
New Revision: 325

Modified:
   pkg/yuima/R/asymptotic_term_second.R
   pkg/yuima/R/asymptotic_term_third.R
Log:
fixed for CRAN submission

Modified: pkg/yuima/R/asymptotic_term_second.R
===================================================================
--- pkg/yuima/R/asymptotic_term_second.R	2014-09-03 17:27:50 UTC (rev 324)
+++ pkg/yuima/R/asymptotic_term_second.R	2014-09-03 17:30:59 UTC (rev 325)
@@ -435,11 +435,11 @@
 				upper[k] <- max
 			}
 
-			if(require(cubature)){
+			#if(require(cubature)){
 				tmp <- adaptIntegrate(gz_pi0, lowerLimit=lower,upperLimit=upper)$integral
-			} else {
-				tmp <- NA		
-			}
+		#	} else {
+	#			tmp <- NA		
+#			}
 
 		}else{
 			stop("length k is too big.")
Modified: pkg/yuima/R/asymptotic_term_third.R
===================================================================
--- pkg/yuima/R/asymptotic_term_third.R	2014-09-03 17:27:50 UTC (rev 324)
+++ pkg/yuima/R/asymptotic_term_third.R	2014-09-03 17:30:59 UTC (rev 325)
@@ -433,11 +433,11 @@
 				upper[k] <- max
 			}
 
-			if(require(cubature)){
+	#		if(require(cubature)){
 				tmp <- adaptIntegrate(gz_pi0, lowerLimit=lower,upperLimit=upper)$integral
-			} else {
-				tmp <- NA		
-			}
+		#	} else {
+			#	tmp <- NA		
+			#}
 
 		}else{
 			stop("length k is too big.")