context("sigma-param")
describe("sigma_param() works", {
it("can be initialized correctly", {
input <- sigma_param(0.04, name = "PROP")
output <-
structure(
list(
block = FALSE,
name = "PROP",
fixed = FALSE,
correlation = FALSE,
value = 0.04,
comment = NULL
),
.Names = c("block", "name", "fixed",
"correlation", "value", "comment"),
class = "sigma"
)
expect_equal(input,
output)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.