Skip to contents

Plot the Significant Differences from a Permutation Test

Usage

# S3 method for class 'tna_permutation'
plot(x, colors, posCol = "#009900", negCol = "red", ...)

Arguments

x

A tna_permutation object.

colors

See cograph::splot().

posCol

Color for plotting edges the difference in edge weights is positive. See cograph::splot().

negCol

Color for plotting edges when the the difference in edge weights is negative. See cograph::splot().

...

Arguments passed to plot_model().

Value

A cograph_network object containing only the significant edges according to the permutation test.

Examples

model_x <- tna(group_regulation[1:200, ])
model_y <- tna(group_regulation[1001:1200, ])
# Small number of iterations for CRAN
perm <- permutation_test(model_x, model_y, iter = 20)
plot(perm)