knitr::opts_chunk$set(echo = TRUE)
library(RMAT)
library(tidyverse)

Matrix

P <- RM_norm(N = 5)
ens <- RME_erdos(N = 5, p = 0.5, size = 5)

Spectrum

ens <- RME_beta(N = 5, beta = 2, size = 5)
ens %>% spectrum()

Dispersion

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()


ataqi23/RMAT documentation built on May 10, 2021, 12:03 a.m.