install.packages('ratesci')
library(ratesci)
myout <- scaspci(x = 1:3, n = 9333, level = 0.999)
save(myout, file = paste0(".github/workflows/data_", make.names(Sys.time()), ".Rda"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.