R/weightSM.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"weightSM" <-
function (weight, typ, sm, pt) 
{
#weightSM
	if(typ==0){
		if(pt < weight[1]){ 
			lina<-approxfun(c(weight[1],weight[1]-sm),
                                        c(weight[3],1))
			weight[3]<-lina(pt)
		}
		else{ 
			lina<-approxfun(c(weight[1],weight[2]+sm),
                                        c(weight[3],1))
			weight[3]<-lina(pt)
			
		}
	}

	weight[3]	
}