R/iqd_function.R

In AgronomiaR/iagro: Indices agronomicos

#' Dickson seedling quality index
#'
#' iqd
#' @description The iqd function calculates the seedling quality index, according to Dickson's methodology (1960). This variable is widely used to determine the quality of seedlings of forest species
#' @param MSPA Numeric vector with dry shoot weight
#' @param MSR Numeric vector with dry root mass
#' @param MST Numeric vector with total dry mass
#' @param HP Shoot height
#' @param DC Stem diameter
#' @param trat Vector with the names of the treatments with the repetitions
#' @keywords IQD
#' @keywords Index
#' @author Gabriel Danilo Shimizu
#' @references DICKSON, A.; LEAF, A. L.; HOSNER, J. F. Quality appraisal of white spruce and white pine seedling stock in nurseries. For. Chron., v. 36, p. 10-13,1960.
#' @import xlsx
#' @export
#' @examples
#' MSPA=rnorm(100,10,1)
#' MSR=rnorm(100,10,1)
#' MST=rnorm(100,10,1)
#' HP=rnorm(100,10,1)
#' DC=rnorm(100,10,1)
#' trat=rep(c("T1","T2","T3","T4"),e=25)
#' iqd(MSPA,MSR,MST,HP,DC,trat,save=T)


iqd = function(MSPA, MSR, MST, HP, DC,trat,save=FALSE){
  IQD=MST/((HP/DC)+(MSPA/MSR))
  dados = data.frame(trat, MSPA,MSR,HP,DC,IQD)
  print(dados)
  if(save==TRUE){xlsx::write.xlsx(dados, "Planilha IQD.xlsx")}
}