#testing diag function
Renv <- new.env(parent = globalenv())
Renv$a <-3
Renv$b<-1:3
Renv$c<-1:5
Renv$d <- matrix(0,3,3)
diag(Renv$d) <- 1:3
Renv$x <- 1:5
Renv$y <- stats::rnorm(5)
Renv$z <- matrix(rnorm(6),3,
dimnames=list(c("a","b",""),
c("a","b")))
FLenv <- as.FL(Renv)
test_that("dim of diag for vector of length 1 ",
{
result1=eval_expect_equal({test1<-dim(diag(a))},Renv,FLenv)
##print(result1)
})
test_that(
"diag for vector of length > 1 ",
{
result2=eval_expect_equal({test2<-diag(c)},Renv,FLenv)
##print(result2)
})
test_that(
"diag for matrix with unconventional names ",
{
result5=eval_expect_equal({
test5<-diag(z)
},Renv,FLenv,
tolerance=1e-7)
##print(result5)
})
test_that(
"Testing equality on all elements of diag ",
{
result3=eval_expect_equal({
test3<-all(diag(b)==d)
},Renv,FLenv)
##print(result3)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.