Nothing
#' Summary of Germination indices
#'
#' @description This function makes a data table with the result of germination indices for each experimental unit.
#' @param SeedN Name of the column with the seed numbers
#' @param evalName Prefix of the evaluation variable
#' @param data The name of the data frame containing the data.
#' @return Data frame with the summary values of germination variables.
#' @import dplyr
#' @export
#' @examples
#'
#' library(GerminaR)
#' fb <- prosopis
#' smr <- ger_summary(SeedN = "seeds", evalName = "D", data = fb)
#' smr
ger_summary <- function(SeedN, evalName, data){
evf <- data %>%
select(!starts_with({{evalName}}))
gsm <- mutate( evf,
grs = ger_GRS(evalName, data),
grp = ger_GRP(SeedN, evalName, data),
mgt = ger_MGT(evalName, data),
mgr = ger_MGR(evalName, data),
gsp = ger_GSP(evalName, data),
unc = ger_UNC(evalName, data),
syn = ger_SYN(evalName, data),
vgt = ger_VGT(evalName, data),
sdg = ger_SDG(evalName, data),
cvg = ger_CVG(evalName, data)
)
# result ------------------------------------------------------------------
return(gsm)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.