[R] non-negative least squares

[Terry Therneau]

 I have a problem whose solution requires non-negative least squares.  That is
 	minimize sum(y - Xbeta)^2   subject to beta >=0
 	
Splus has the nnls.fit command.  Is there an R alternative?

	Terry Therneau