set.seed(2)
df <- data.frame(cbind(runif(100), runif(100), runif(100), rpois(100, 15),
rpois(100, 30)))
stpm1 <- stpm(df)
## Categorical marks
set.seed(2)
dfA <- data.frame(x = runif(100), y = runif(100), t = runif(100),
m1 = rnorm(100), m2 = rep(c("C"), times = 100))
dfB <- data.frame(x = runif(50), y = runif(50), t = runif(50),
m1 = rnorm(25), m2 = rep(c("D"), times = 50))
stpm2 <- stpm(rbind(dfA, dfB), names = c("continuous", "dichotomous"))
## Linear network
set.seed(2)
dfL <- data.frame(cbind(runif(100, 0, 0.85), runif(100, 0, 0.85), runif(100),
rpois(100, 15)))
stlpm1 <- stpm(dfL, L = chicagonet)
Run the code above in your browser using DataLab