v0.0.3 bug fixed in plot.CalGR (it does not use anymore a global variable)

R/plot.CalGR.R

@@ -7,8 +7,8 @@ plot.CalGR <- function(x, which = c("perf", "hist", "time"), ...) {
     stop("Non convenient data for which argument. Must be of class \"perf\", \"hist\" or \"time\"")
   }  
   
-  nbParamX <- airGRscholar:::TypeModelGR(x)$NbParam #as.numeric(gsub("\\D", "", x$TypeModel))
-  nbParamC <- ifelse(airGRscholar:::TypeModelGR(w2)$CemaNeige, 2, 0)
+  nbParamX <- .TypeModelGR(x)$NbParam #as.numeric(gsub("\\D", "", x$TypeModel))
+  nbParamC <- ifelse(.TypeModelGR(x)$CemaNeige, 2, 0)
   nbParam <- nbParamX + nbParamC
   nmParam <- c(sprintf("X%i", 1:nbParamX), sprintf("C%i", seq_len(nbParamC)))