The R Project SVN R-packages

Rev

Rev 3821 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3821 Rev 4798
Line 45... Line 45...
45 
SEXP sdf_do_biglm(SEXP sdfx, SEXP svecy, SEXP sdfx_dim, SEXP intercept) {
 45 
SEXP sdf_do_biglm(SEXP sdfx, SEXP svecy, SEXP sdfx_dim, SEXP intercept) {
46 
    SEXP sdflm, qr, D, rbar, thetab, tmp;
 46 
    SEXP sdflm, qr, D, rbar, thetab, tmp;
47 
    int np, nrbar, nprotect = 0, intrcpt, i, ier;
 47 
    int np, nrbar, nprotect = 0, intrcpt, i, ier;
48 
    double *xrow, y, *ptrD, *ptrrbar, *ptrthetab, sserr, weight;
 48 
    double *xrow, y, *ptrD, *ptrrbar, *ptrthetab, sserr, weight;
49 
    sqlite3_stmt *stmt1, *stmt2;
 49 
    sqlite3_stmt *stmt1, *stmt2;
50 
    char *inamex, *inamey, *tblnamey, *varnamey;
 50 
    const char *inamex, *inamey, *tblnamey, *varnamey;
51 
 
 51 
 
52 
    inamex = SDF_INAME(sdfx);
 52 
    inamex = SDF_INAME(sdfx);
53 
 
 53 
 
54 
    inamey = SDF_INAME(svecy);
 54 
    inamey = SDF_INAME(svecy);
55 
    tblnamey = SVEC_TBLNAME(svecy);
 55 
    tblnamey = SVEC_TBLNAME(svecy);