Skip to contents

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>