# NOT RUN {
library(JointNets)
simulationresult = simulation(p = 20, n = c(100,100))
truth = simulationresult$simulatedgraphs
result = kdiffnet(simulationresult$simulatedsamples[[1]],
simulationresult$simulatedsamples[[2]],
W = matrix(1,20,20), g = rep(0,20),epsilon = 0.2,
lambda = 0.4,covType = "cov")
F1(result,truth)
# }
Run the code above in your browser using DataLab