RemoveSprouts: Remove sprouts

In drGeorgeXenakis/fr3PGD: The Physiological Principles for Predicting Growth Model (3PG)

Usage

RemoveSprouts(state, parms, fma)

Arguments

state
parms
fma

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (state, parms, fma) 
{
    pWl.sprouts <- parms[["pWl.sprouts"]]
    pWsbr.sprouts <- parms[["pWsbr.sprouts"]]
    N <- state[["N"]]
    Nharv <- state[["Nharv"]]
    nsprouts <- unique(fma[, "nsprouts"])
    Nharv <- ifelse(is.na(Nharv), N/nsprouts, Nharv)
    Wl <- state[["Wl"]]
    Wsbr <- state[["Wsbr"]]
    Nsprouts <- N
    N <- nsprouts * Nharv
    state[["Wl"]] <- Wl - (Nsprouts - N) * Wl/Nsprouts * pWl.sprouts
    state[["Wsbr"]] <- Wsbr - (Nsprouts - N) * Wl/Nsprouts * 
        pWsbr.sprouts
    state[["rm.sprouts"]] <- 1
    state[["N"]] <- N
    return(state)
  }

drGeorgeXenakis/fr3PGD documentation built on June 3, 2020, 6:10 a.m.