R/processOrder.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"processOrder" <- function (parorder, mod)
{
   modeldiffs <- mod@modeldiffs
   change <- modeldiffs$change 
   for(diffs in change) {
	     for(i in 1:length(parorder)) {
		   if(parorder[[i]]$name == diffs$what) {
			for(j in 1:length(diffs$dataset)) {
			   r <- which(parorder[[i]]$dataset == diffs$dataset[j])
			   if(length(r) > 0)
				parorder[[i]]$dataset <- parorder[[i]]$dataset[-r]
			    
			}   
                   }
             }
   }
   parorder
}