#example ensurer
library(ensurer)
library(magrittr)
preload <- function(){ myDf <- read.csv("example_input.csv") return(lm(y~x, data=myDf)) }
compare <- function(expected, actual){
actual$coefficients %>% ensure_that(expected$coefficients, tolerance = 0.001,
msg = paste("wrong coefficents. Expected ", print(expected$coefficients) , " but is ", print(actual$coefficients)))
}
ddtCreateDirs(ddtsDir)
ddtRun(ddtsDir, preload, compare)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.