R/ftrans.R

In waternumbers/FloodForT: Flood Forecasting Toolbox

#' Function to convert a named parameter vector from fppest to actual parameters
#' 
#' Returns an names vector of transformed parameters
#' 
#' @param par named vector of untransformed parameters
#' @param mdl data.frame describing the model
#' 
#' @keywords FloorForT
#' @export
#' @examples
#' # Not Run
#' # ModelBuild()
ftrans <- function(par,mdl){
    ## transformed parameters
    nms <- names(par)
    tmp <- par
    ## time sonstants
    idx <- which(substr(nms,1,1)=="T")
    tmp[idx] <- mdl[1,'dt']* exp(par[idx]) #( 0.1 + (1e6-0.1)*( 1/(1+exp( -par[idx] )) ) ) #exp( par[idx] )
    ## Steady state gains
    idx <- which(substr(nms,1,3)=="SSG")
    tmp[idx] <- exp( par[idx] )
    ## parameters of phi
    idx <- which(substr(nms,1,3)=="phi")
    tmp[idx] <- exp( par[idx] )
    
    return(tmp)
}