test_that("PCA works", { expect_equal(round(PCA(iris[,1:4])$x[1,1], 3), -2.684) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.