ResourceFunction["WolframModelPlot"]ResourceFunction["WolframModel"][​​{{x,y},{x,z}}{{x,y},{x,w},{y,w},{z,w}},{{1,2},{1,3}},​​15,"FinalState"],

Out[]=