R/expvariog.R

"expvariog" <-
function(v,variog,d,w){
   num <- variog - (v[1]+v[2]*(1-exp(-d/v[3])))
   den <- (v[1]+v[2]*(1-exp(-d/v[3])))
   num.den <- num/den
   num.den2 <- (num.den)^2
   Q <- sum(w*num.den2)
   return(Q)
}

Try the ProbForecastGOP package in your browser

Any scripts or data that you put into this service are public.

ProbForecastGOP documentation built on May 2, 2019, 3:42 a.m.