dichot <-
function (x, c = 1, diag)
{
ifelse(missing(diag) == FALSE && isTRUE(diag == FALSE) ==
TRUE, diag <- FALSE, diag <- TRUE)
if (isTRUE(diag == TRUE) == FALSE) {
if (is.na(dim(x)[3]) == TRUE | isTRUE(dim(x)[3] == 1) ==
TRUE) {
dg <- diag(x)
}
else {
dg <- list()
for (i in seq_len(dim(x)[3])) dg[[i]] <- diag(x[,
, i])
}
}
else {
dg <- NULL
}
if (isTRUE(0 >= c) == TRUE) {
x <- replace(x, x >= c, 1L)
x <- replace(x, x < c, 0L)
}
else {
x <- replace(x, x < c, 0L)
x <- replace(x, x >= c, 1L)
}
if (isTRUE(is.null(dg)) == FALSE) {
if (is.na(dim(x)[3]) == TRUE | isTRUE(dim(x)[3] == 1) ==
TRUE) {
diag(x) <- dg
}
else {
for (i in seq_len(dim(x)[3])) diag(x[, , i]) <- dg[[i]]
}
x
}
else {
x
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.