From ligges at statistik.tu-dortmund.de  Tue Apr 23 14:55:12 2013
From: ligges at statistik.tu-dortmund.de (Uwe Ligges)
Date: Tue, 23 Apr 2013 14:55:12 +0200
Subject: [Rd] Help: Where can I find the code for 'C_Cdqrls'?
In-Reply-To: <000e01ce3ff5$1ec9eb90$5c5dc2b0$@gmail.com>
References: <000e01ce3ff5$1ec9eb90$5c5dc2b0$@gmail.com>
Message-ID: <517684B0.1030703@statistik.tu-dortmund.de>



On 23.04.2013 09:35, ??? wrote:
> Dear all,
>
>                  I???m not sure if it is O.K. to ask this question here.
>
>                  But where can I find the code for the function ???C_Cdqrls??? which is called by the R function ???lsfit???.

Look into the R sources:

grepping for dqrls shows the following relevant files:


./src/appl/dqrls.f:      subroutine 
dqrls(x,n,p,y,ny,tol,b,rsd,qty,k,jpvt,qraux,work)
./src/include/R_ext/Applic.h:void F77_NAME(dqrls)(double *x, int *n, int 
*p, double *y, int *ny,
./src/library/stats/src/init.c:    CALLDEF(Cdqrls, 3),
./src/library/stats/src/lm.c:    z <- .Fortran("dqrls",
./src/library/stats/src/lm.c:SEXP Cdqrls(SEXP x, SEXP y, SEXP tol)
./src/library/stats/src/lm.c:    F77_CALL(dqrls)(REAL(qr), &n, &p, 
REAL(y), &ny, &rtol,
./src/library/stats/src/statsR.h:SEXP Cdqrls(SEXP x, SEXP y, SEXP tol);


Best,
Uwe Ligges


>
>                  Thank you all.
>
>                  Sorry for being na??ve if so.
>
> --------------------
>
> Ziqiang Zhao
>
> 2013-04-23
>
>
>
>
> 	[[alternative HTML version deleted]]
>
>
>
> ______________________________________________
> R-devel at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
>



[Rd] Help: Where can I find the code for 'C_Cdqrls'?
Uwe Ligges