# NOT RUN {
my.spct <- polyester.spct
filter_properties(my.spct) <- list(Rfr.constant = 0.07,
thickness = 125e-6,
attenuation.mode = "absorption")
convertTfrType(my.spct, Tfr.type = "internal")
# }
Run the code above in your browser using DataLab