{
### Data preparation ###
data("Two_group")
set.seed(999)
## Analysis
network_results <- network_analysis(
taxobj = Two_group,
taxlevel = "Genus",
n = 10,
threshold = 0.8
)
# Nodes information table
network_nodes <- network_results$Nodes_info
head(network_nodes)
# Adjacency table
network_adjacency <- network_results$Adjacency_column_table
head(network_adjacency)
# Complete adjacency matrix
network_matrix <- network_results$Adjacency_matrix
print(network_matrix[1:10, 1:10])
# igraph object
igraph_object <- network_results$Igraph_object
network_stat(igraph_object) # In case you want to see statistics again
# or do other analysis based on igraph.
}
Run the code above in your browser using DataLab