x
) according
to the FAST alogrithm. sensitivity(x, numberf, order = 4, make.plot = FALSE, show.legend = TRUE, plot.max = max(ff[-1]), include.total.variance = FALSE, cukier = TRUE, names = paste(sep = "", "P", 1:numberf), main = "", xlab = "frequency", ylab = "Fourier Coef", pch = rep(0, numberf), col = (1:numberf) + 1, reorder = 1:numberf, ...)
par
par
par
par
fast_parameters
CUKIER, R. I.; SCHAIBLY, J. H. & SHULER, K. E. Study Of Sensitivity Of Coupled Reaction Systems To Uncertainties In Rate Coefficients .3. Analysis Of Approximations Journal Of Chemical Physics, 1975 , 63 , 1140-1149
McRae, G.; Tilden, J. & Seinfeld, J. Global sensitivity analysis - a computational implementation of the Fourier amplitude sensitivity test (FAST) Comput. Chem. Eng., 1982 , 6 , 15-25
S
, fast
example_model1<-function(p,x){
return(p[1]*x+p[2]*(1-x))
}
paras<-fast_parameters(min=c(0,0,0),max=c(1,2,2))
paras
model_results <- apply(paras, 1, example_model1, x=0.5)
model_results
sensitivity <- sensitivity(x=model_results, numberf=3, make.plot=TRUE)
sensitivity
Run the code above in your browser using DataLab