Infinite running in NCT function

[Karen897-code]

Hi all!

I probably encountered an infinite running problem when using NCT function recently and I don't know what happened.

First, I estimated my networks by ggmModSelect algorithm, using Spearman correlation:(Note: My dataset has no missing data and contains two scales using 4-point and 6-point Likert rating respectively)

Network11 <- estimateNetwork(data1[,c(4:12,15:18)], default = "ggmModSelect",corMethod="cor",corArgs=list(method="spearman"))
Network33<- estimateNetwork(data2[,c(4:12,15:18)], default = "ggmModSelect",corMethod="cor",corArgs=list(method="spearman"))

Then I chose above bootnet objects as NCT input:

set.seed(123)
N1_N3_it100_ggm <- NCT(Network11,Network33,gamma=0.5,it=100,test.edges = T,test.centrality = T,communities = commus,
                          centrality = "bridgeExpectedInfluence")

To avoid long calculation process, I set 100 times of iteration on purpose (I tried 5000 times at the first place but it kept running for nearly 4 hours without any sign to stop… see below), and I still got this endless process:

Note: Input is a bootnetResult object, argument 'gamma' is ignored.
Note: estimateNetwork object used - estimation method has possibly not been validated.
|++++++++++++++++++++++++++++++++++++++++++++++++++| 100% elapsed=00s | 0%
|++++++++++++++++++++++++++++++++++++++++++++++++++| 100% elapsed=00s
|++++++++++++++++++++++++++++++++++++++++++++++++++| 100% elapsed=00s
|++++++++++++++++++++++++++++++++++++++++++++++++++| 100% elapsed=00s
|++++++++++++++++++++++++++++++++++++++++++++++++++| 100% elapsed=00s
…(countless progress bars are omitted)……..

I wonder why this could happen. Is that the ggmModselect algorithm's problem as I didn’t get this trouble when using EBICglasso? Are there any solutions for this situation?

Sincerely,
Karen