[Yuima-commits] r725 - in pkg/yuima: R man

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

Author: iacus
Date: 2020-03-05 11:31:44 +0100 (Thu, 05 Mar 2020)
New Revision: 725

Modified:
   pkg/yuima/R/qmleLevy.R
   pkg/yuima/man/qmleLevy.Rd
Log:
fixed qmleLevy function arguments

Modified: pkg/yuima/R/qmleLevy.R
===================================================================
--- pkg/yuima/R/qmleLevy.R	2020-03-05 09:45:12 UTC (rev 724)
+++ pkg/yuima/R/qmleLevy.R	2020-03-05 10:31:44 UTC (rev 725)
@@ -3,10 +3,15 @@
 ########################################################################
 
 
+#qmleLevy<-function(yuima,start,lower,upper,joint = FALSE,third = FALSE,
+#                   Est.Incr = c("NoIncr","Incr","IncrPar"),
+#                   aggregation = TRUE)
 qmleLevy<-function(yuima,start,lower,upper,joint = FALSE,third = FALSE,
-                   Est.Incr = c("NoIncr","Incr","IncrPar"),
+                   Est.Incr = "NoIncr",
                    aggregation = TRUE)
-{
+{
+  if(!(Est.Incr %in% c("NoIncr","Incr","IncrPar")))
+  	stop("Argument'Est.Incr' must be one of \"NoIncr\",\"Incr\" or \"IncrPar\"")
   call <- match.call()
   truestart<-start
   cat("\nStarting QGMLE for SDE ... \n")

Modified: pkg/yuima/man/qmleLevy.Rd
===================================================================
--- pkg/yuima/man/qmleLevy.Rd	2020-03-05 09:45:12 UTC (rev 724)
+++ pkg/yuima/man/qmleLevy.Rd	2020-03-05 10:31:44 UTC (rev 725)
@@ -12,7 +12,7 @@
 }
 \usage{
 qmleLevy(yuima, start, lower, upper, joint = FALSE, 
-third = FALSE, Est.Incr = c("NoIncr", "Incr", "IncrPar"), 
+third = FALSE, Est.Incr = "NoIncr", 
 aggregation = TRUE)
 }
 \arguments{
@@ -23,7 +23,7 @@
   \item{joint}{perform joint estimation or two stage estimation, by default \code{joint=FALSE}. If there exists an overlapping parameter, \code{joint=TRUE} does not work for the theoretical reason}
   \item{third}{perform third estimation by default \code{third=FALSE}. If there exists an overlapping parameter, \code{third=TRUE} does not work for the         
                theoretical reason.}
-  \item{Est.Incr}{the qmleLevy returns an object of \code{mle-clas}, by default \code{Est.Incr="NoIncr"}.}         
+  \item{Est.Incr}{the qmleLevy returns an object of \code{mle-clas}, by default \code{Est.Incr="NoIncr"}, other options as \code{"Inc"} or \code{"IncrPar"}.}         
   \item{aggregation}{If \code{aggregation=TRUE}, the function returns the unit-time Levy increments. If \code{Est.Incr="IncrPar"}, the function estimates Levy parameters using the unit-time Levy increments.}    
 }
 \details{