## Not run:
# simulation <- init_simulation_gene_net()
# lmi_data = cal_lmi_data( simulation$gene_expr, simulation$gene_graph)
# t_data = DNLC_statistics(simulation$gene_graph, simulation$gene_expr,
# simulation$patient_matrix, lmi_data = lmi_data)
# fdr_result <- gene_fdrtest(t_data)
# sig_genes <- significant_genes(fdr_obj = fdr_result, thres = 0.2)## End(Not run)
Run the code above in your browser using DataLab