[R-pkg-devel] error in sample(), invalid 'size' argument

[William Dunlap]

If mss$member is not a matrix you will get that error because setsiz will
be NULL.

  > setsiz <- ncol( 33 )
  > sample(1:3, setsiz)
  Error in sample.int(length(x), size, replace, prob) :
    invalid 'size' argument


Bill Dunlap
TIBCO Software
wdunlap tibco.com


On Wed, Jan 15, 2020 at 4:58 AM Roberts, David <droberts using montana.edu> wrote:

> Colleagues,
>
>     I have a function (maxsimset) in package optpart that has worked for
> at least a decade, passes check --as-cran on my ubuntu-based system, and
> builds without errors at win-builder and CRAN windows, but fails at CRAN
> debian (unstable) with the error
>
>  > mss.test(mss.10,shoshsite$elevation)
> Error in sample.int(length(x), size, replace, prob) :
>    invalid 'size' argument
> Calls: mss.test -> sample -> sample.int
>
> an excerpt of the function is below
>
>   1  mss.test <- function(mss,env,panel='all',
>   2              main=deparse(substitute(env)),...)
>   3  {
>   4      if (class(mss) != "mss") {
>   5          stop("You must pass an object of class mss ...")
>   6      }
>   7      if (!is.numeric(env)) {
>   8          stop("You must pass only numeric vectors ... ")
>   9      }
> 10      setsiz <- ncol(mss$member)
> 11      nset <- mss$numset
> 12      null <- rep(0,nset)
> 13      for (i in 1:nset) {
> 14          tmp <- sample(1:length(env),setsiz)
> 15          nullmin <- min(env[tmp])
> 16          nullmax <- max(env[tmp])
> 17          null[i] <- nullmax - nullmin
> 18      }
> 19         .     .      .
> 20         .     .      .
> 21         .     .      .
> 22  }
>
> The error occurs at line 14 in the excerpt above.  As you can see, the
> 'size' argument is setsiz, taken at line 10 as the ncol(mss$member); mss
> has already been checked for conformance and does indeed have a list
> object matrix called $member.  In my tests, setsiz has mode numeric,
> class integer, and size 1 as expected.  The specific error message I
> receive can be generated from sample() if size is a list object or
> data.frame, but not a vector or matrix.
>
> Since I cannot replicate the error on any machines I have access to, I
> am at a loss for the reason behind the error.  If this should go to
> R-devel with respect to r77656 ( 2020-01-12) please advise.
>
> Thanks in advance for any help, Dave
> ______________________________________________
> R-package-devel using r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-package-devel
>

	[[alternative HTML version deleted]]