Nothing
library(igraph)
library(igraphdata)
data("karate", package = "igraphdata")
A <- get.adjacency(karate)
test_that("DoubleCenter correctness", {
iform <- DoubleCenter(A)
A_tilde <- transform(iform, A)
# TODO
# L <- sweep(L, 1, Matrix::rowMeans(L))
# L <- sweep(L, 2, Matrix::colMeans(L))
# L
expect_true(TRUE)
})
test_that("DoubleCenter recovery", {
iform <- DoubleCenter(A)
A_tilde <- transform(iform, A)
A_recovered <- inverse_transform(iform, A_tilde)
expect_true(
all.equal(A, A_recovered)
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.