Compute transmittance by waveband of interest to plants' and human visual responses to light.
Usage
Tfr_summary_table(
mspct,
quantity = "average",
attr2tb = "when.measured",
summary.type = "VIS",
digits = 3L
)Arguments
- mspct
A filter_mspct, or a filter_spct object containing spectral transmittance for one or more sources.
- quantity
character Passed to
transmittance.- attr2tb
character Vector with one or more of "when.measured", "what.measured", "where.measured", "how.measured" and "comment".
- summary.type
character One of "plant", "PAR" or "VIS".
- digits
integer The number of significant digits in the output.
Value
A tibble with one row per spectrum and one column per summary quantity and attribute and a column with the names of the spectra.
Details
This function calls different functions from package 'photobiology' and returns a typical set of summaries.
See also
See the documentation for functions
transmittance,
add_attr2tb
and signif which are called to build
the summary table.
Examples
Tfr_summary_table(yellow_gel.spct)
#> # A tibble: 1 × 8
#> spct.idx `Tfr(wl)_Purple.ISO` `Tfr(wl)_Blue.ISO` `Tfr(wl)_Green.ISO`
#> <fct> <dbl> <dbl> <dbl>
#> 1 spct.name 0.0000537 0.0574 0.718
#> # ℹ 4 more variables: `Tfr(wl)_Yellow.ISO` <dbl>, `Tfr(wl)_Orange.ISO` <dbl>,
#> # `Tfr(wl)_Red.ISO` <dbl>, when.measured <dttm>
Tfr_summary_table(yellow_gel.spct, attr2tb = c("what.measured", "where.measured"))
#> # A tibble: 1 × 9
#> spct.idx `Tfr(wl)_Purple.ISO` `Tfr(wl)_Blue.ISO` `Tfr(wl)_Green.ISO`
#> <fct> <dbl> <dbl> <dbl>
#> 1 spct.name 0.0000537 0.0574 0.718
#> # ℹ 5 more variables: `Tfr(wl)_Yellow.ISO` <dbl>, `Tfr(wl)_Orange.ISO` <dbl>,
#> # `Tfr(wl)_Red.ISO` <dbl>, what.measured <chr>, where.measured <named list>
Tfr_summary_table(yellow_gel.spct, summary.type = "plant")
#> Warning: Using wavelength range from a weighted waveband object.
#> # A tibble: 1 × 10
#> spct.idx `Tfr(wl)_UVB.ISO` `Tfr(wl)_UVA2.CIE` `Tfr(wl)_UVA1.CIE`
#> <fct> <dbl> <dbl> <dbl>
#> 1 spct.name 0.000462 0.00374 0.000686
#> # ℹ 6 more variables: `Tfr(wl)_Blue.Sellaro` <dbl>,
#> # `Tfr(wl)_Green.Sellaro` <dbl>, `Tfr(wl)_Red.Smith20` <dbl>,
#> # `Tfr(wl)_FarRed.Smith20` <dbl>, `Tfr(wl)_range.400.700` <dbl>,
#> # when.measured <dttm>
Tfr_summary_table(yellow_gel.spct, summary.type = "PAR")
#> Warning: Using wavelength range from a weighted waveband object.
#> # A tibble: 1 × 7
#> spct.idx `Tfr(wl)_]UVC.CIE` `Tfr(wl)_UVB.CIE` `Tfr(wl)_UVA2.CIE`
#> <fct> <dbl> <dbl> <dbl>
#> 1 spct.name 0.000102 0.000462 0.00374
#> # ℹ 3 more variables: `Tfr(wl)_UVA1.CIE` <dbl>, `Tfr(wl)_range.400.700` <dbl>,
#> # when.measured <dttm>
Tfr_summary_table(yellow_gel.spct, summary.type = "VIS")
#> # A tibble: 1 × 8
#> spct.idx `Tfr(wl)_Purple.ISO` `Tfr(wl)_Blue.ISO` `Tfr(wl)_Green.ISO`
#> <fct> <dbl> <dbl> <dbl>
#> 1 spct.name 0.0000537 0.0574 0.718
#> # ℹ 4 more variables: `Tfr(wl)_Yellow.ISO` <dbl>, `Tfr(wl)_Orange.ISO` <dbl>,
#> # `Tfr(wl)_Red.ISO` <dbl>, when.measured <dttm>