# 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