The R Project SVN – R – Diff – /trunk/src/main/printarray.c



/*
 *  R : A Computer Language for Statistical Data Analysis
 *  Copyright (C) 1995, 1996	Robert Gentleman and Ross Ihaka
 *  Copyright (C) 2000--2014	The R Core Team
 *  Copyright (C) 2001--2012	The R Foundation
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or

	for (j = jmin; j < jmax ; j++)
	    MatrixColumnLabel(cl, j, w[j]);
	for (i = 0; i < r_pr; i++) {
	    MatrixRowLabel(rl, i, rlabw, lbloff);
	    for (j = jmin; j < jmax; j++) {
		Rprintf("%s", EncodeReal0(x[i + j * r], w[j], d[j], e[j], OutDec));
	    }
	}
	Rprintf("\n");
	jmin = jmax;
    }

	    MatrixColumnLabel(cl, j, w[j]);
	for (i = 0; i < r_pr; i++) {
	    MatrixRowLabel(rl, i, rlabw, lbloff);
	    for (j = jmin; j < jmax; j++) {
		if (ISNA(x[i + j * r].r) || ISNA(x[i + j * r].i))
		    Rprintf("%s", EncodeReal0(NA_REAL, w[j], 0, 0, OutDec));
		else
		    Rprintf("%s",
			    EncodeComplex(x[i + j * r],
					  wr[j] + R_print.gap, dr[j], er[j],
					  wi[j], di[j], ei[j], OutDec));

The R Project SVN R

(root)/trunk/src/main/printarray.c @ 63243 – Rev 64656 → 66087

Rev 64656		Rev 66087
Line 1...		Line 1...
1	`/*`	1	`/*`
2	`* R : A Computer Language for Statistical Data Analysis`	2	`* R : A Computer Language for Statistical Data Analysis`
3	`* Copyright (C) 1995, 1996 Robert Gentleman and Ross Ihaka`	3	`* Copyright (C) 1995, 1996 Robert Gentleman and Ross Ihaka`
4	`* Copyright (C) 2000--2013 The R Core Team`	4	`* Copyright (C) 2000--2014 The R Core Team`
5	`* Copyright (C) 2001--2012 The R Foundation`	5	`* Copyright (C) 2001--2012 The R Foundation`
6	`*`	6	`*`
7	`* This program is free software; you can redistribute it and/or modify`	7	`* This program is free software; you can redistribute it and/or modify`
8	`* it under the terms of the GNU General Public License as published by`	8	`* it under the terms of the GNU General Public License as published by`
9	`* the Free Software Foundation; either version 2 of the License, or`	9	`* the Free Software Foundation; either version 2 of the License, or`
Line 292...		Line 292...
292	`for (j = jmin; j < jmax ; j++)`	292	`for (j = jmin; j < jmax ; j++)`
293	`MatrixColumnLabel(cl, j, w[j]);`	293	`MatrixColumnLabel(cl, j, w[j]);`
294	`for (i = 0; i < r_pr; i++) {`	294	`for (i = 0; i < r_pr; i++) {`
295	`MatrixRowLabel(rl, i, rlabw, lbloff);`	295	`MatrixRowLabel(rl, i, rlabw, lbloff);`
296	`for (j = jmin; j < jmax; j++) {`	296	`for (j = jmin; j < jmax; j++) {`
297	`Rprintf("%s", EncodeReal(x[i + j * r], w[j], d[j], e[j], OutDec));`	297	`Rprintf("%s", EncodeReal0(x[i + j * r], w[j], d[j], e[j], OutDec));`
298	`}`	298	`}`
299	`}`	299	`}`
300	`Rprintf("\n");`	300	`Rprintf("\n");`
301	`jmin = jmax;`	301	`jmin = jmax;`
302	`}`	302	`}`
Line 343...		Line 343...
343	`MatrixColumnLabel(cl, j, w[j]);`	343	`MatrixColumnLabel(cl, j, w[j]);`
344	`for (i = 0; i < r_pr; i++) {`	344	`for (i = 0; i < r_pr; i++) {`
345	`MatrixRowLabel(rl, i, rlabw, lbloff);`	345	`MatrixRowLabel(rl, i, rlabw, lbloff);`
346	`for (j = jmin; j < jmax; j++) {`	346	`for (j = jmin; j < jmax; j++) {`
347	`if (ISNA(x[i + j * r].r) \|\| ISNA(x[i + j * r].i))`	347	`if (ISNA(x[i + j * r].r) \|\| ISNA(x[i + j * r].i))`
348	`Rprintf("%s", EncodeReal(NA_REAL, w[j], 0, 0, OutDec));`	348	`Rprintf("%s", EncodeReal0(NA_REAL, w[j], 0, 0, OutDec));`
349	`else`	349	`else`
350	`Rprintf("%s",`	350	`Rprintf("%s",`
351	`EncodeComplex(x[i + j * r],`	351	`EncodeComplex(x[i + j * r],`
352	`wr[j] + R_print.gap, dr[j], er[j],`	352	`wr[j] + R_print.gap, dr[j], er[j],`
353	`wi[j], di[j], ei[j], OutDec));`	353	`wi[j], di[j], ei[j], OutDec));`