Commit 897a89cc authored by unknown's avatar unknown
Browse files

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

parent 01fc1f0b
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment