The R Project SVN R

Rev

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

Rev 60667 Rev 60844
Line 102... Line 102...
102 
	    RAND1(2, rgeom);
 102 
	    RAND1(2, rgeom);
103 
	    RAND1(3, rpois);
 103 
	    RAND1(3, rpois);
104 
	    RAND1(4, rt);
 104 
	    RAND1(4, rt);
105 
	    RAND1(5, rsignrank);
 105 
	    RAND1(5, rsignrank);
106 
	default:
 106 
	default:
107 
	    error(_("internal error in do_random1"));
 107 
	    error("internal error in do_random1");
108 
	}
 108 
	}
109 
	if (naflag)
 109 
	if (naflag)
110 
	    warning(_("NAs produced"));
 110 
	    warning(_("NAs produced"));
111 
 
 111 
 
112 
	PutRNGstate();
 112 
	PutRNGstate();
Line 193... Line 193...
193 
	    RAND2(10, rweibull);
 193 
	    RAND2(10, rweibull);
194 
	    RAND2(11, rwilcox);
 194 
	    RAND2(11, rwilcox);
195 
	    RAND2(12, rnchisq);
 195 
	    RAND2(12, rnchisq);
196 
	    RAND2(13, rnbinom_mu);
 196 
	    RAND2(13, rnbinom_mu);
197 
	default:
 197 
	default:
198 
	    error(_("internal error in do_random2"));
 198 
	    error("internal error in do_random2");
199 
	}
 199 
	}
200 
	if (naflag)
 200 
	if (naflag)
201 
	    warning(_("NAs produced"));
 201 
	    warning(_("NAs produced"));
202 
 
 202 
 
203 
	PutRNGstate();
 203 
	PutRNGstate();
Line 280... Line 280...
280 
	PROTECT(c = coerceVector(c, REALSXP));
 280 
	PROTECT(c = coerceVector(c, REALSXP));
281 
	GetRNGstate();
 281 
	GetRNGstate();
282 
	switch (PRIMVAL(op)) {
 282 
	switch (PRIMVAL(op)) {
283 
	    RAND3(0, rhyper);
 283 
	    RAND3(0, rhyper);
284 
	default:
 284 
	default:
285 
	    error(_("internal error in do_random3"));
 285 
	    error("internal error in do_random3");
286 
	}
 286 
	}
287 
	if (naflag)
 287 
	if (naflag)
288 
	    warning(_("NAs produced"));
 288 
	    warning(_("NAs produced"));
289 
 
 289 
 
290 
	PutRNGstate();
 290 
	PutRNGstate();