This function calculates the Fraser-Suzuki function.

fs_function(temp, height, skew, position, width)

Arguments

temp

temperature values

height

height value

skew

shape value

position

position value

width

width value

Value

Fraser-Suzuki function

Examples

temp <- 150:600
fs_output <- fs_function(temp, height = 0.004, skew = -.15,
position = 250, width = 50)