R/readclp0.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"readclp0" <-
function (filenm) 
{
    cmat <- read.table(filenm, skip = 1)
    clist <- list()
    for(i in 1:nrow(cmat)) {
	clist[[i]] <- list(low=cmat[i,2], high = cmat[i,3], 
	comp = cmat[i,1])
    }
    clist
}