Error in .C("RgpuLSFit", Package = "gputools", qr = qr, n = as.integer(ngoodobs), : argument 16 is empty.

[leichtle]

Dear Josh,
Running the gpuGlm examples (both) from the gputools package I run into the quoted error.

Error in .C("RgpuLSFit", Package = "gputools", qr = qr, n = as.integer(ngoodobs), : argument 16 is empty.

My system:

R 3.4.0
Debian stretch
Matrix products: default
BLAS: /usr/lib/openblas-base/libblas.so.3
LAPACK: /usr/lib/libopenblasp-r0.2.19.so
gputools_1.2
rJava_0.9-8

(as given by sessionInfo)

Other examples (e.g. gpuLm, or gpuLsfit) work fine.

Many thanks for your support!

[leichtle]

Dear Josh,
The error for the above-mentioned issue is probably a superfluous comma after "useSingle" in the gpuGlm.fit function (see below).

	fit <- .C("RgpuLSFit", PACKAGE="gputools",
		qr = qr, n = as.integer(ngoodobs), p = as.integer(nvars),
		yIn, ny = as.integer(1L),
		tol = as.double(min(gpuLm.defaultTol(useSingle), control$epsilon/1000)),
		coefficients = coef, residuals = resid,
		effects = effects,
		rank = integer(1L), pivot = as.integer(0L:(nvars-1)),
		qraux = qraux, useSingle=useSingle, #####HERE######
               )[c('qr', 'n', 'p', 'ny', 'tol',
			'coefficients', 'residuals', 'effects', 'rank', 'pivot',
			'qraux')]

Best regards,
Alex