你可以用showAmat
library(pcalg)
dag <- randDAG(10, 1, "er")
amat <- showAmat(dag)
amat
#> 1 2 3 4 5 6 7 8 9 10
#> 1 0 0.0000000 0 0 0.4144231 0 0.0000000 0.0000000 0 0
#> 2 0 0.0000000 0 0 0.0000000 0 0.0000000 2.0000000 0 0
#> 3 0 0.0000000 0 0 0.0000000 0 0.7542406 0.7771955 0 0
#> 4 0 0.0000000 0 0 0.0000000 0 0.0000000 0.0000000 0 0
#> 5 2 0.0000000 0 0 0.0000000 0 0.0000000 0.0000000 0 0
#> 6 0 0.0000000 0 0 0.0000000 0 0.0000000 0.0000000 0 0
#> 7 0 0.0000000 2 0 0.0000000 0 0.0000000 0.0000000 0 0
#> 8 0 0.3098213 2 0 0.0000000 0 0.0000000 0.0000000 0 0
#> 9 0 0.0000000 0 0 0.0000000 0 0.0000000 0.0000000 0 0
#> 10 0 0.0000000 0 0 0.0000000 0 0.0000000 0.0000000 0 0