library(extraDistr)
dists <- list(
rmixnorm = list(mean = c(70, 150), sd = c(15, 5), alpha = c(0.3, 0.7)),
rnorm = list(mean = 90, sd = 3)
)
x <- mvSim(
dists = dists, n_samples = 5, counts = 1000,
min_bin = 1, max_bin = 180, wide = TRUE
)
emd_df <- pcv.emd(x,
cols = "sim", reorder = c("group"), mat = FALSE,
plot = FALSE, parallel = 1
)
net <- pcv.net(emd_df, meta = "group")
net.plot(net)
net.plot(net, edgeFilter = "0.25")
net.plot(net,
edgeFilter = 0.25, fill = c("degree", "group"),
shape = c("degree", "group")
)
net.plot(net,
edgeFilter = 0.25, fill = c("degree", "group"),
shape = c("degree")
)
Run the code above in your browser using DataLab