Write R code to do the following:1. Generate and plot a random undirected power law graph with 30 nodesand power 1.2 (use the function barabasi.game from the igraphlibrary to generate the...

Write R code to do the following:
1. Generate and plot a random undirected power law graph with 30 nodes
and power 1.2 (use the function barabasi.game from the igraph
library to generate the graph).
Code
# Generate and plot the random undirected power law graph with 30 nodes
# and power 1.2
set.seed(123) # Set the seed for reproducibility
g <- barabasi.game(30, power = 1.2, directed = FALSE)
plot(g, layout=layout.fruchterman.reingold)
Output
    
2. Compute and report the diameter and density of the graph.
Code
# Compute and report the diameter and density of the graph
diameter <- diameter(g)
density <- graph.density(g)
print(paste("The diameter of the graph is", diameter))
print(paste("The density of the graph is", density))
Output-
    [1] "The diameter of the graph is 10"
    [1] "The density of the graph is 0.0666666666666667"
3. Plot the degree distribution of the graph and estimate the Power
Law coefficient from the degree distribution.
Code
# Plot the degree distribution of...