Takes two data frames with model fits computed on two graphs for on the same populations and tests whether the scores of one graph are significantly better than the scores of the other
compare_fits2(fits1, fits2, boot = FALSE)The fits of the first graph
The fits of the second graph
should match the boot parameter in qpgraph_resample_snps (FALSE by default)
if (FALSE) {
nblocks = dim(example_f2_blocks)[3]
train = sample(1:nblocks, round(nblocks/2))
fits1 = qpgraph_resample_snps(example_f2_blocks[,,train], graph = graph1,
f2_blocks_test = example_f2_blocks[,,-train])
fits2 = qpgraph_resample_snps(example_f2_blocks[,,train], graph = graph2,
f2_blocks_test = example_f2_blocks[,,-train])
compare_fits2(fit1, fit2)
}