R/inplahe1.R

In omarbenites/sbformula: Formulas for crop breeding and standart evaluation trial

#'Function for calculating the Increase Plant height 1 (INPLAHE1)
#'  
#' @param plahe_ev1 Plant height 1 Evaluation Days After Planting (DAP)
#' @param plahe_ev2 Plant height 2 Evaluation Days After Planting (DAP)
#' @return inplahe1 Return the increase plant height 1 (First difference) 
#' @author Omar Benites
#' @details This function returns the increase plant height 1 (First difference) 
#' @references Assessing Potato Clone for Drought Tolerance under Field Condition
#' @family drought, evaluation, potato
#' @export 
#' 

inplahe1 <- function(plahe_ev1,plahe_ev2){
  
  if(missing(plahe_ev1)){
    stop("Please enter the plant height 1 evaluation DAP 'plahe_ev1'")
  }
  
  if(missing(plahe_ev2)){
    stop("Please enter the plant height 2 evaluation DAP 'plahe_ev2'")
  }
    
  inplahe1 <- (apply(cbind(plahe_ev2,-plahe_ev1),1,sbsum)/plahe_ev1)*100
  return(inplahe1)
  
}