# NOT RUN {
if(interactive()) {
X <- chicago
} else {
m <- sample(factor(c("A","B")), 20, replace=TRUE)
X <- runiflpp(20, simplenet) %mark% m
}
p <- linearmarkequal(X)
# }
Run the code above in your browser using DataCamp Workspace