The R Project SVN R

Rev

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

Rev 32871 Rev 33297
Line 402... Line 402...
402 
    if (n == NA_INTEGER || n < 1)
 402 
    if (n == NA_INTEGER || n < 1)
403 
	errorcall(call, _("invalid first argument"));
 403 
	errorcall(call, _("invalid first argument"));
404 
    if (k == NA_INTEGER || k < 0)
 404 
    if (k == NA_INTEGER || k < 0)
405 
	errorcall(call, _("invalid second argument"));
 405 
	errorcall(call, _("invalid second argument"));
406 
    if (!replace && k > n)
 406 
    if (!replace && k > n)
407 
	errorcall(call, _("cannot take a sample larger than the population\n when replace = FALSE"));
 407 
	errorcall(call, _("cannot take a sample larger than the population\n when 'replace = FALSE'"));
408 
    GetRNGstate();
 408 
    GetRNGstate();
409 
    PROTECT(y = allocVector(INTSXP, k));
 409 
    PROTECT(y = allocVector(INTSXP, k));
410 
    if (!isNull(prob)) {
 410 
    if (!isNull(prob)) {
411 
	prob = coerceVector(prob, REALSXP);
 411 
	prob = coerceVector(prob, REALSXP);
412 
	if (NAMED(prob)) prob = duplicate(prob);
 412 
	if (NAMED(prob)) prob = duplicate(prob);