improve @examples with merinos2

R/kafino.R

@@ -69,6 +69,18 @@
 #'               X=c(45,0.5,41),
 #'               doOptim=FALSE,aa=0.001,sigma2_mm=0.05,K=2)
 #' Sys.time() - t0
+#' 
+#' # complex data on merinos2 dataset
+#' data(merinos2)
+#' 
+#' t0 <- Sys.time()
+#' resu3<-kafino_fit(datain=merinos2,
+#'               Tvar="dateNum",Yvar="Poids",
+#'               expertMin=10,expertMax=45,
+#'               Max=100,Min=10, 
+#'               X=c(45,0.5,20),
+#'               doOptim=TRUE,aa=0.001,sigma2_mm=0.05,K=2)
+#' Sys.time() - t0
 kafino_fit<-function(datain,Tvar,Yvar,
                      expertMin,expertMax,
                      Max,Min,X,

man/kafino_fit.Rd

@@ -95,4 +95,16 @@ resu2<-kafino_fit(datain=spring1,
               X=c(45,0.5,41),
               doOptim=FALSE,aa=0.001,sigma2_mm=0.05,K=2)
 Sys.time() - t0
+
+# complex data on merinos2 dataset
+data(merinos2)
+
+t0 <- Sys.time()
+resu3<-kafino_fit(datain=merinos2,
+              Tvar="dateNum",Yvar="Poids",
+              expertMin=10,expertMax=45,
+              Max=100,Min=10, 
+              X=c(45,0.5,20),
+              doOptim=TRUE,aa=0.001,sigma2_mm=0.05,K=2)
+Sys.time() - t0
 }