R/L_to_LBLE.R

In phenology: Tools to Manage a Parametric Function that Describes Phenology and More

#' L_to_LBLE transforms a set of parameters from Length format to LengthB LengthE.
#' @title Transform a set of parameters from Length format to LengthB LengthE
#' @author Marc Girondot
#' @return Return the set of modified parameters
#' @param parameters Set of current parameters
#' @description This function is used to transform a set of parameters 
#' that uses Length to a set of parameters uses LengthB and LengthE.
#' @family Phenology model
#' @examples
#' # Read a file with data
#' data(Gratiot)
#' # Generate a formatted list nammed data_Gratiot 
#' refdate <- as.Date("2001-01-01")
#' data_Gratiot<-add_phenology(Gratiot, name="Complete", 
#' 		reference=refdate, format="%d/%m/%Y")
#' # Generate initial points for the optimisation
#' parg<-par_init(data_Gratiot, fixed.parameters=NULL)
#' # Change the parameters to Begin End format
#' parg1<-LBLE_to_L(parameters=parg)
#' # And change back to LengthB LengthE.
#' parg2<-L_to_LBLE(parameters=parg1)
#' @export

L_to_LBLE <-
function(parameters=stop("Set of parameters must be given")) {

if (!is.na(parameters["Length"])) {
	
	parameters["LengthB"] <- parameters["Length"]
	parameters["LengthE"] <- parameters["Length"]
	parameters <- parameters[-which(names(parameters)=="Length")]
	
	return(parameters)
	}

}