knitr::opts_chunk$set(echo = TRUE) library(RMAT) library(tidyverse)
P <- RM_norm(N = 5) ens <- RME_erdos(N = 5, p = 0.5, size = 5)
ens <- RME_beta(N = 5, beta = 2, size = 5) ens %>% spectrum()
disp_ens <- dispersion(ens, pairs = "lower") disp_ens
N <- 10 p <- 0.5 size <- 200 ens <- RME_erdos(N, p, size) spec <- ens %>% spectrum(order = 1:3) spec$Order <- as.factor(spec$Order) spec %>% spectrum.scatterplot()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.