https://github.com/cran/quantreg
Revision d510df1dee399ebb2651becd32c86f0c020776e6 authored by Roger Koenker on 14 March 2004, 00:00:00 UTC, committed by Gabor Csardi on 14 March 2004, 00:00:00 UTC
1 parent 470402e
Tip revision: d510df1dee399ebb2651becd32c86f0c020776e6 authored by Roger Koenker on 14 March 2004, 00:00:00 UTC
version 3.35
version 3.35
Tip revision: d510df1
rls.f
subroutine rls(n,p,x,y,b,a,ax)
integer n,p
double precision x(p,n),y(n),b(p,n),a(p,p),ax(p)
double precision zero,one,mone,f,r,ddot
data one/1.d0/
data mone/-1.d0/
data zero/0.d0/
do 23000 i = (p+1),n
call dgemv('N',p,p,one,a,p,x(1,i),1,zero,ax,1)
f = one + ddot(p,x(1,i),1,ax,1)
r = (y(i)-ddot(p,x(1,i),1,b(1,i-1),1))/f
call daxpy(p,one,b(1,i-1),1,b(1,i),1)
call daxpy(p,r,ax,1,b(1,i),1)
call dger(p,p,mone/f,ax,1,ax,1,a,p)
23000 continue
return
end
Computing file changes ...