Fraser-Suzuki mixture model
fs_mixture(temp, height_1, skew_1, position_1, width_1, height_2, skew_2, position_2, width_2, height_3, skew_3, position_3, width_3, height_0 = NULL, skew_0 = NULL, position_0 = NULL, width_0 = NULL)
temp
: temperature valuesheight_1
: height value for hemicelluloseskew_1
: shape value for hemicelluloseposition_1
: position value for hemicellulosewidth_1
: width value for hemicelluloseheight_2
: height value for celluloseskew_2
: shape value for celluloseposition_2
: position value for cellulosewidth_2
: width value for celluloseheight_3
: height value for ligninskew_3
: shape value for ligninposition_3
: position value for ligninwidth_3
: width value for ligninheight_0
: height value for second hemicellulose curve, if presentskew_0
: shape value for second hemicellulose curve, if presentposition_0
: position value for second hemicellulose curve, if presentwidth_0
: width value for second hemicellulose curve, if presentFraser-Suzuki model output
temp <- 150:600 fs_mixture_output <- fs_mixture(temp, height_1 = 0.003, skew_1 = -0.15, position_1 = 250, width_1 = 50, height_2 = 0.006, skew_2 = -0.15, position_2 = 320, width_2 = 30, height_3 = 0.001, skew_3 = -0.15, position_3 = 390, width_3 = 200)