R/gpuAvailable.R

In gputools: GPU Drop-Ins for Statistics on Wide Data

Defines functions gpuAvailable

Documented in gpuAvailable

gpuAvailable <- function()
{
	reason <- tryCatch({ getGpuId(); NULL },
		error = function(e) conditionMessage(e))
	if (is.null(reason)) return(TRUE)
	structure(FALSE, reason = reason)
}

Try the gputools package in your browser