"n" not rounded down in fnGenPatData.R

[PeterJacko]

In fnGenPatData.R, the following code:

if (n %% 1 != 0) {
  floor(n)
  warning('WARNING: n was rounded down')
}

actually doesn't round "n" down, it would need to say

n <- floor(n)

Currently this does not affect the performance of SIMPLE because this function is called with n=1, but...