## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----tf32-example, eval=FALSE-------------------------------------------------
# a <- cuda_tensor(matrix(rnorm(1024 * 1024), 1024), "cuda", "float32")
# b <- cuda_tensor(matrix(rnorm(1024 * 1024), 1024), "cuda", "float32")
# standard <- tensor_matmul(a, b)
# fast <- tensor_matmul(a, b, precision = "tf32")
# cuda_provenance(fast)