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