library(RayleighSelection)
gy <- nerve_complex(list(c(1,4,6,10), c(1,2,7), c(2,3,8), c(3,4,9,10), c(4,5)))
plot_skeleton(gy)
## [1] "Convergence reached at step 779"
rayleigh_selection(gy,t(as.data.frame(c(0,1,1,0,0,0,0,0,0,1))))
## R0 p0 q0 R1 p1 q1
## c(0, 1, 1, 0, 0, 0, 0, 0, 0, 1) 0.9584665 0.445 0.445 0.5536398 0.16 0.16
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.