# NOT RUN {
# create the data frame using the network, node and edge attributes
df <- netsDataFrame(network_attr_df,
node_attr_df,
edge_df)
# run the neatmap code on df
neat_res <- neatmap(df, scale_df = "ecdf", max_k = 3, reps = 100,
xlab = "vars", ylab = "nets", xlab_cex = 1, ylab_cex = 1)
# create the list of heatmaps for each iteration
hm_list <- consensusMap(neat_res)
# }
Run the code above in your browser using DataLab