NetworkToolbox (version 1.1.1)

semnetboot: Partial Bootstrapped Semantic Network Analysis

Description

Bootstraps (without replacement) the nodes in the network and computes global network characteristics

Usage

semnetboot(data, method = c("PMFG", "TMFG", "LoGo", "MaST", "threshold"),
  normal = FALSE, nodes, iter = 1000, na.data = c("pairwise", "listwise",
  "fiml", "none"), seeds = NULL, ...)

Arguments

data

A set of data

method

A network filtering method. Defaults to "PMFG"

normal

Should data be transformed to a normal distribution? Defaults to FALSE. Data is not transformed to be normal. Set to TRUE if data should be transformed to be normal (computes correlations using the cor_auto function from the qgraph package)

nodes

Number of nodes (i.e., variables) to use in the bootstrap. Defaults to 50 Otherwise accepts the number of the nodes to be included

iter

Number of bootstrap iterations. Defaults to 1000 iterations

na.data

How should missing data be handled? For "listwise" deletion the na.omit function is applied. Set to "fiml" for Full Information Maxmimum Likelihood (psych package). Full Information Maxmimum Likelihood is recommended but time consuming

seeds

Seeds to use for random number generation. Defaults to NULL. Input seeds from previous run (see examples)

...

Additional arguments for filtering methods

Value

Returns a list that includes the original semantic network measures (origmeas; ASPL, CC, Q, S), the bootstrapped semantic network measures (bootmeas), and the seeds used in the random number generator (Seeds)

References

Kenett, Y. N., Wechsler-Kashi, D., Kenett, D. Y., Schwartz, R. G., Ben Jacob, E., & Faust, M. (2013). Semantic organization in children with cochlear implants: Computational analysis of verbal fluency. Frontiers in Psychology, 4(543), 1-11.

Examples

# NOT RUN {
lowO <- subset(animals, Group==1)[-1]

semPMFG<-semnetboot(lowO)

#Replicates previous analysis
repsemPMFG<-semnetboot(lowO, seeds = semPMFG$Seeds)

semLoGo<-semnetboot(lowO,method="LoGo")

semMaST<-semnetboot(lowO,method="MaST")

semThreshold<-semnetboot(lowO,method="threshold")
# }