The R Project SVN R

Rev

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

Rev 35253 Rev 36129
Line 347... Line 347...
347 
	    y = allocVector(REALSXP, n);
 347 
	    y = allocVector(REALSXP, n);
348 
	    for(i = 0 ; i < n ; i++)
 348 
	    for(i = 0 ; i < n ; i++)
349 
		REAL(y)[i] = REAL(x)[i];
 349 
		REAL(y)[i] = REAL(x)[i];
350 
	    break;
 350 
	    break;
351 
	case 2:	/* Im */
 351 
	case 2:	/* Im */
- 
 
 352 
	    y = allocVector(REALSXP, n);
- 
 
 353 
	    for(i = 0 ; i < n ; i++)
- 
 
 354 
		REAL(y)[i] = 0.0;
- 
 
 355 
	    break;
352 
	case 4:	/* Arg */
 356 
	case 4:	/* Arg */
353 
	    y = allocVector(REALSXP, n);
 357 
	    y = allocVector(REALSXP, n);
354 
	    for(i = 0 ; i < n ; i++)
 358 
	    for(i = 0 ; i < n ; i++)
355 
		if(ISNAN(REAL(x)[i]))
 359 
		if(ISNAN(REAL(x)[i]))
356 
		    REAL(y)[i] = REAL(x)[i];
 360 
		    REAL(y)[i] = REAL(x)[i];