library(pbdPAPI)
events <- c("PAPI_L1_DCM","PAPI_L2_DCM")
papi.avail(events)
### High-level interface
system.event(1+1, events)
### Low-level interface --- you have to check your own errors
ret <- papi.start(events)
my.expr <- 1+1
papi.stop(events)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.