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

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

Author: kamatani
Date: 2010-11-02 14:02:41 +0100 (Tue, 02 Nov 2010)
New Revision: 138

Modified:
   pkg/yuima/R/adaBayes.R
Log:
fix bug for adaBayes

Modified: pkg/yuima/R/adaBayes.R
===================================================================
--- pkg/yuima/R/adaBayes.R	2010-11-01 04:53:04 UTC (rev 137)
+++ pkg/yuima/R/adaBayes.R	2010-11-02 13:02:41 UTC (rev 138)
@@ -2,15 +2,16 @@
 
 
 setGeneric("adaBayes",
-		function(yuima, start, method="nomcmc", fixed = list(), print=FALSE, 
- lower, upper, joint=FALSE,prior, ...)
+		function(yuima, start,prior,lower,upper, method="nomcmc")
 standardGeneric("adaBayes")
 )
 setMethod("adaBayes", "yuima",
-		function(yuima, start, method="nomcmc", fixed = list(), print=FALSE, 
-		lower, upper, joint=FALSE,prior, ...)
+		function(yuima, start,prior,lower,upper, method="nomcmc")
 {
 
+	joint <- FALSE
+	fixed <- numeric(0)
+	print <- FALSE
 	
 	call <- match.call()
 	if(method=="mcmc"){