Get metadata.
Examples
x <- randomWeb(10)
metadata(x)
#> sample_id repeated group_ab subtype score_a
#> anansi_ID_sample_1_1 sample_1 rep_1 a z -0.35468265
#> anansi_ID_sample_2_1 sample_2 rep_1 b x -1.41649853
#> anansi_ID_sample_3_1 sample_3 rep_1 a y -0.95154944
#> anansi_ID_sample_4_1 sample_4 rep_1 a x -0.59884378
#> anansi_ID_sample_5_1 sample_5 rep_1 a y -1.21758177
#> anansi_ID_sample_6_1 sample_6 rep_1 b z 0.26335813
#> anansi_ID_sample_7_1 sample_7 rep_1 b z 0.03574692
#> anansi_ID_sample_8_1 sample_8 rep_1 b z -0.16857525
#> anansi_ID_sample_9_1 sample_9 rep_1 b x -0.78869322
#> anansi_ID_sample_10_1 sample_10 rep_1 b z 0.70773647
#> score_b score_c
#> anansi_ID_sample_1_1 0.74917953 2.7243183
#> anansi_ID_sample_2_1 -0.48461633 0.8565465
#> anansi_ID_sample_3_1 0.04963184 2.6681201
#> anansi_ID_sample_4_1 -1.23581825 -0.9015933
#> anansi_ID_sample_5_1 -0.89786672 0.1507280
#> anansi_ID_sample_6_1 -1.13386541 -0.0252831
#> anansi_ID_sample_7_1 -0.52766947 1.9041068
#> anansi_ID_sample_8_1 1.75590386 -0.9914374
#> anansi_ID_sample_9_1 0.49456501 -1.1881004
#> anansi_ID_sample_10_1 0.67537504 -0.4455091