## generate a random tripartite network
set.seed(12)
Net <- build_toy_net(11,15,16,0.2)
data(PPH_Coltparkmeadow)
Net <- PPH_Coltparkmeadow
set.seed(123)
tri_null_list<-tri_null(Net,null_type="both_sub",sub_method="r00")
set.seed(123)
tri_null_list<-tri_null(Net,null_type="sauve")
Run the code above in your browser using DataLab