LumReader (version 0.1.0)

create_Filter: Function to create a filter.

Description

This function create a new filter.

Usage

create_Filter(name, description, reference.thickness, thickness = NULL, reflexion, transmission)

Arguments

name

character: Name of the filter.

description

character: Description of the filter.

reference.thickness

numeric: Reference thickness of the filter.

thickness

numeric: Thickness of the filter (by default thickness = reference.thickness).

reflexion

numeric: Reflexion of the filter (1-P).

transmission

numeric: Transmission of the filter (T).

Value

This function return a new filter.

Examples

#Data
wavelength <- seq(200,1000,10)

values <- dnorm(x = wavelength,mean = 400,sd = 50)*dnorm(x = wavelength,mean = 200,sd = 50)
values <- values/max(values)

name <- "example"
description <- "non realistic filter"
reference.thickness <- 1
reflexion <- 1
transmission <- matrix(data=c(wavelength,
                              values),
                       nrow = 81,
                       ncol = 2,
                       byrow = FALSE)

#Filter
filter <- create_Filter(name = name,
                        description = description,
                        reference.thickness = reference.thickness,
                        reflexion = reflexion,
                        transmission = transmission)

plot_Filter(filter)