if (FALSE) {
# Generating multivariate normal data from a 'random' graph
data.sim <- bdgraph.sim(n = 6, p = 4, size = 4)
data <- (data.sim$data - 3) ^ 4
data
# Transfer the data by truncation
bdgraph.npn(data, npn = "truncation")
# Transfer the data by shrunken
bdgraph.npn(data, npn = "shrunken")
# Transfer the data by skeptic
bdgraph.npn(data, npn = "skeptic")
}
Run the code above in your browser using DataLab