The R Project SVN R-packages

Rev

Rev 1862 | Rev 2200 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1862 Rev 1864
Line 216... Line 216...
216 
    SET_SLOT(val, Matrix_rcondSym,
 216 
    SET_SLOT(val, Matrix_rcondSym,
217 
	     duplicate(GET_SLOT(from, Matrix_rcondSym)));
 217 
	     duplicate(GET_SLOT(from, Matrix_rcondSym)));
218 
    SET_SLOT(val, Matrix_DimSym, duplicate(dimP));
 218 
    SET_SLOT(val, Matrix_DimSym, duplicate(dimP));
219 
    SET_SLOT(val, Matrix_diagSym, duplicate(diag));
 219 
    SET_SLOT(val, Matrix_diagSym, duplicate(diag));
220 
    SET_SLOT(val, Matrix_uploSym, duplicate(uplo));
 220 
    SET_SLOT(val, Matrix_uploSym, duplicate(uplo));
- 
 
 221 
    full_to_packed_double(
221 
    full_to_packed(REAL(ALLOC_SLOT(val, Matrix_xSym, REALSXP, (n*(n+1))/2)),
 222 
	REAL(ALLOC_SLOT(val, Matrix_xSym, REALSXP, (n*(n+1))/2)),
222 
		   REAL(GET_SLOT(from, Matrix_xSym)), n,
 223 
	REAL(GET_SLOT(from, Matrix_xSym)), n,
223 
		   *CHAR(STRING_ELT(uplo, 0)) == 'U' ? UPP : LOW,
 224 
	*CHAR(STRING_ELT(uplo, 0)) == 'U' ? UPP : LOW,
224 
		   *CHAR(STRING_ELT(diag, 0)) == 'U' ? UNT : NUN);
 225 
	*CHAR(STRING_ELT(diag, 0)) == 'U' ? UNT : NUN);
225 
    UNPROTECT(1);
 226 
    UNPROTECT(1);
226 
    return val;
 227 
    return val;
227 
}
 228 
}