Nothing
## ---- eval = FALSE, message=FALSE---------------------------------------------
# # need the developmental version
# if (!requireNamespace("remotes")) {
# install.packages("remotes")
# }
#
# # install from github
# remotes::install_github("donaldRwilliams/BGGM")
# library(BGGM)
# library(cowplot)
## ---- echo=FALSE, message=FALSE-----------------------------------------------
library(BGGM)
## ---- eval=FALSE--------------------------------------------------------------
# # data
# Y <- bfi[,1:25]
#
# # fit model
# fit <- estimate(Y)
## ---- eval=FALSE--------------------------------------------------------------
# # select the edge set
# E <- select(fit,
# cred = 0.95,
# alternative = "two.sided")
## ---- eval=FALSE--------------------------------------------------------------
# plot(E)
## ---- eval=FALSE--------------------------------------------------------------
# plot(E,
# # enlarge edges
# edge_magnify = 5,
# # cluster nodes
# groups = comm,
# # change layout
# layout = "random")$plt +
# # add custom labels
# scale_color_brewer(breaks = c("A",
# "C",
# "E",
# "N",
# "O"),
# labels = c("Agreeableness", "Conscientiousness",
# "Extraversion", "Neuroticism",
# "Opennness"),
# palette = "Set2")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.