Nothing
#' Constructor of lists of wavebands used in plant biology
#'
#' Defined according to different authors.
#'
#' @param std a character string "sensory", "sensory10", "sensory20", "Sellaro", "ISO",
#' "CIE", "none" or "", where "ISO", "CIE" and "none" affect only the UV
#' bands.
#'
#' @return a list of wavebands
#' @export
#'
#' @seealso \code{\link[photobiology]{waveband}}
#'
#' @examples
#' Plant_bands()
#' Plant_bands("sensory")
#' Plant_bands("sensory10")
#' Plant_bands("sensory20")
#' Plant_bands("ISO")
#' Plant_bands("CIE")
#'
#' @family lists of unweighted wavebands
#'
Plant_bands <- function(std = "sensory20") {
if (std %in% c("sensory", "sensory10", "sensory20", "sensoryBroad", "Sellaro")) {
RFRstd <- c("sensory" = "Smith20",
"sensory20" = "Smith20",
"sensory10" = "Smith10",
"sensoryBroad" = "Smith20",
"Sellaro" = "Sellaro")[std]
BGstd <- c("sensory" = "Sellaro",
"sensory20" = "Sellaro",
"sensory10" = "Sellaro",
"sensoryBroad" = "broad",
"Sellaro" = "Sellaro")[std]
list(UVB(), UVA2(), UVA1(), Blue(BGstd), Green(BGstd),
Red(RFRstd), Far_red(RFRstd))
} else if (std %in% c("ISO", "none")) {
list(UVB(std), UVA(std), PAR())
} else if (std == "CIE") {
list(UVB(std), UVA2(std), UVA1(std), PAR())
} else {
warning("'std' = '", std, "' not implemented.")
list()
}
}
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.