# Simulate Datasets
one <- sim.fluency(10)
two <- sim.fluency(10)
# Compute similarity matrix
cos1 <- similarity(one, method = "cosine")
cos2 <- similarity(two, method = "cosine")
# Compute networks
net1 <- TMFG(cos1)
net2 <- TMFG(cos2)
# \donttest{
# Run random walk analysis
rw.results <- randwalk(net1, net2, iter = 100, cores = 2)
# }
rw.results <- randwalk(net1, net2, iter = 10, cores = 2)
Run the code above in your browser using DataLab