R/doConstrSuper.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"doConstrSuper" <-
function (X, Xlist, multimodel, thetalist, group)  
{   
    dset <- group[[1]][2]
    m <- multimodel@modellist[[dset]]
    colnames(X) <- m@compnames 
    if(multimodel@getXsuper) 
	X <- getXsuper(Xlist, multimodel@modellist, thetalist, group)
    t <- thetalist[[dset]]
    if(m@clpdep) {
	X <- doClpConstr(X,  clp_ind = group[[1]][1], 
                  	 clpCon = m@clpCon, clpequ = t@clpequ, 
		  	 num_clpequ = length(m@clpequspec), 
			 usecompnames0 = m@usecompnames0, 
			 usecompnamesequ = m@usecompnamesequ)
    }
    X
}