[Bug]: Network analysis crach

[stamgio1982]

JASP Version

0.95.3

Commit ID

No response

JASP Module

Network

What analysis are you seeing the problem on?

No response

What OS are you seeing the problem on?

Windows 10

Bug Description

This analysis terminated unexpectedly.

Error in layout[groups[[g]], 1]: subscript out of bounds

Stack trace
doTryCatch(return(expr), name, parentenv, handler)

withCallingHandlers(expr = analysis(jaspResults = jaspResults, dataset = dataset, options = options), error = .addStackTrace)

analysis(jaspResults = jaspResults, dataset = dataset, options = options)

.networkAnalysisPlotContainer(mainContainer, network, options)

.networkAnalysisNetworkPlot(plotContainer, network, options)

jaspBase::.suppressGrDevice({
for (v in names(allNetworks)) {
networkToPlot <- allNetworks[[v]]
if (options[['estimator']] = 'mgm') {
edgeColor <- networkToPlot[['results']][['edgecolor']]
if (is.null(edgeColor))
edgeColor <- networkToPlot[['results']][['pairwise']][['edgecolor']]
}
legend <- allLegends[[v]]
networkPlotContainer[[v]]$plotObject <- .networkAnalysisOneNetworkPlot(network = networkToPlot, options = options, minE = minE, maxE = maxE, layout = layout, groups = groups, labels = labels, legend = legend, shape = shape, nodeColor = nodeColor, edgeColor = edgeColor, nodeNames = nodeNames, method = method)
}
})

eval(plotFunc, parent.frame())

eval(plotFunc, parent.frame())

.networkAnalysisOneNetworkPlot(network = networkToPlot, options = options, minE = minE, maxE = maxE, layout = layout, groups = groups, labels = labels, legend = legend, shape = shape, nodeColor = nodeColor, edgeColor = edgeColor, nodeNames = nodeNames, method = method)

qgraph::qgraph(input = wMat, layout = layout, groups = groups, repulsion = options[['layoutSpringRepulsion']], cut = options[['cut']], edge.width = options[['edgeSize']], node.width = options[['nodeSize']], maximum = maxE, minimum = minE, details = options[['details']], labels = labels, palette = if (options[['manualColor']]) NULL else options[['nodePalette']], theme = .networkAnalysisJaspToBootnetEdgeColors(options[['edgePalette']]), legend = legend, shape = shape, color = nodeColor, edge.color = edgeColor,
nodeNames = nodeNames, label.scale = options[['labelScale']], label.cex = options[['labelSize']], GLratio = 1/options[['legendToPlotRatio']], edge.labels = options[['edgeLabels']], edge.label.cex = options[['edgeLabelSize']], edge.label.position = options[['edgeLabelPosition']])

Expected Behaviour

Get the results of the analysis

Steps to Reproduce

1. Run existing network analysis
2. Delete a Group in Graphical Options

Log (if any)

This analysis terminated unexpectedly.

Error in layout[groups[[g]], 1]: subscript out of bounds

Stack trace
doTryCatch(return(expr), name, parentenv, handler)

withCallingHandlers(expr = analysis(jaspResults = jaspResults, dataset = dataset, options = options), error = .addStackTrace)

analysis(jaspResults = jaspResults, dataset = dataset, options = options)

.networkAnalysisPlotContainer(mainContainer, network, options)

.networkAnalysisNetworkPlot(plotContainer, network, options)

jaspBase::.suppressGrDevice({
for (v in names(allNetworks)) {
networkToPlot <- allNetworks[[v]]
if (options[['estimator']] = 'mgm') {
edgeColor <- networkToPlot[['results']][['edgecolor']]
if (is.null(edgeColor))
edgeColor <- networkToPlot[['results']][['pairwise']][['edgecolor']]
}
legend <- allLegends[[v]]
networkPlotContainer[[v]]$plotObject <- .networkAnalysisOneNetworkPlot(network = networkToPlot, options = options, minE = minE, maxE = maxE, layout = layout, groups = groups, labels = labels, legend = legend, shape = shape, nodeColor = nodeColor, edgeColor = edgeColor, nodeNames = nodeNames, method = method)
}
})

eval(plotFunc, parent.frame())

eval(plotFunc, parent.frame())

.networkAnalysisOneNetworkPlot(network = networkToPlot, options = options, minE = minE, maxE = maxE, layout = layout, groups = groups, labels = labels, legend = legend, shape = shape, nodeColor = nodeColor, edgeColor = edgeColor, nodeNames = nodeNames, method = method)

qgraph::qgraph(input = wMat, layout = layout, groups = groups, repulsion = options[['layoutSpringRepulsion']], cut = options[['cut']], edge.width = options[['edgeSize']], node.width = options[['nodeSize']], maximum = maxE, minimum = minE, details = options[['details']], labels = labels, palette = if (options[['manualColor']]) NULL else options[['nodePalette']], theme = .networkAnalysisJaspToBootnetEdgeColors(options[['edgePalette']]), legend = legend, shape = shape, color = nodeColor, edge.color = edgeColor,
nodeNames = nodeNames, label.scale = options[['labelScale']], label.cex = options[['labelSize']], GLratio = 1/options[['legendToPlotRatio']], edge.labels = options[['edgeLabels']], edge.label.cex = options[['edgeLabelSize']], edge.label.position = options[['edgeLabelPosition']])

More Debug Information

No response

Final Checklist

• I have included a screenshot showcasing the issue, if possible.
• I have included a JASP file (zipped) or data file that causes the crash/bug, if applicable.
• I have accurately described the bug, and steps to reproduce it.

[github-actions]

@stamgio1982, thanks for taking the time to create this issue. If possible (and applicable), please upload to the issue website (#3764, attaching to an email does not work) a screenshot showcasing the problem, and/or a compressed (zipped) .jasp file or the data file that causes the issue. If you would prefer not to make your data publicly available, you can send your file(s) directly to us, issues@jasp-stats.org

[boutinb]

Hi @stamgio1982 You made the same issue for 0.19.3. Does it mean that you have tried afterwards the 0.95.3 version, and you got the same error? Then the 0.19.3 issue can be closed.
I have tried to reproduce the issue with the BFI Network JASP file from the Data Library, but on my mac and windows laptops, it works. Could you send us a JASP file where this problem occurs?

[tomtomme]

on flatpak linux for me it also works with 0.95.3

[tomtomme]

Version 0.95.4 is out. Let us know if it helps. Please reopen if not.