# NOT RUN {
# Load spacejamr object
data("RI")
ri_points <- PointSim(points = 10, window = RI, seed = 42)
power_law <- NetSim(ri_points, base_prob = 0.92, scale = 1, threshold = 0.5,
power = -2.4)
# }
Run the code above in your browser using DataLab