# simulate a dataset with continuous data
dataset <- matrix(runif(1000 * 50, 1, 100), nrow = 1000 )
a <- mmhc.skel(dataset, max_k = 3, threshold = 0.05, test = "testIndFisher",
rob = FALSE, nc = 1)
b <- mmhc.skel(dataset, max_k = 3, threshold = 0.05, test = "testIndSpearman",
rob = FALSE, nc = 1)
a$runtime ##
b$runtime ## check the diffrerences in the runtimes
Run the code above in your browser using DataLab