##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
require(OpenCL)
plat <- oclPlatforms()
dev <- oclDevices( plat[[1]] )
if(!any(grepl("cl_khr_fp64", oclInfo(dev[[1]])$exts)))
stop("GPU with double precision and Open CL capabilities required.")
k.sampling <- setup3(dev=dev)
Run the code above in your browser using DataLab