This function calculates the Fraser-Suzuki function.
fs_function(temp, height, skew, position, width)
temperature values
height value
shape value
position value
width value
Fraser-Suzuki function
temp <- 150:600
fs_output <- fs_function(temp, height = 0.004, skew = -.15,
position = 250, width = 50)