set.seed(2)
df <- data.frame(runif(100), runif(100), runif(100))
stp1 <- stp(df)
set.seed(2)
df_net <- data.frame(runif(100, 0, 0.85), runif(100, 0, 0.85), runif(100))
stlp1 <- stp(df_net, L = chicagonet)
Run the code above in your browser using DataLab