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)
}