Displaying 1 result from an estimated 1 matches for "nntik".
Did you mean:
antik
2004 Mar 01
1
non-negative least-squares
...and have got it
programmed in S-Plus. However I am trying to move all my scripts from
S-Plus to R.
Is there an equivalent to nnls.fit in R?
I think this can be done with pcls? Right?
S-Plus script: A, L and data are matrices, lambda is a vector of
possible lambda (smoothing) values
> "nntik"<-function(A,L,data,lambda)
> {
> H<-rbind(A,lambda*L)
> i<-1:(nrow(L)+length(data))
> q<-ifelse(i<=length(data),data[i],0)
> nntik<-nnls.fit(H,q)
> return(nntik)
> }
I think this is the same as what pcls states:
Willem
--
Dr R.W. Vervoort
McCaughey...