# NOT RUN {
set.seed(565)
x <- matrix(rnorm(100),ncol=2)
h <- epsilon_hypergraph(x,epsilon=.25)
# }
# NOT RUN {
plot(h)
plot(h,layout=x)
# }
# NOT RUN {
epsilons <- runif(nrow(x),0,.5)
k <- epsilon_hypergraph(x,epsilon=epsilons)
# }
# NOT RUN {
plot(k)
plot(k,layout=x)
# }
Run the code above in your browser using DataLab