Running examples in 'SID-Ex.R' failed
The error most likely occurred in:

> ### Name: structIntervDist
> ### Title: Structural Intervention Distance (SID)
> ### Aliases: structIntervDist
> ### Keywords: Causality Adjacency graphs
> 
> ### ** Examples
> 
> G <- rbind(c(0,1,1,1,1),
+            c(0,0,1,1,1),
+            c(0,0,0,0,0),
+            c(0,0,0,0,0),
+            c(0,0,0,0,0))
> 
> H1 <- rbind(c(0,1,1,1,1),
+             c(0,0,1,1,1),
+             c(0,0,0,1,0),
+             c(0,0,0,0,0),
+             c(0,0,0,0,0))
> 
> H2 <- rbind(c(0,0,1,1,1),
+             c(1,0,1,1,1),
+             c(0,0,0,0,0),
+             c(0,0,0,0,0),
+             c(0,0,0,0,0))
> 
> cat("true DAG G:\n")
true DAG G:
> show(G)
     [,1] [,2] [,3] [,4] [,5]
[1,]    0    1    1    1    1
[2,]    0    0    1    1    1
[3,]    0    0    0    0    0
[4,]    0    0    0    0    0
[5,]    0    0    0    0    0
> cat("\n")

> cat("==============","\n")
============== 
> cat("\n")

> cat("estimated DAG H1:\n")
estimated DAG H1:
> show(H1)
     [,1] [,2] [,3] [,4] [,5]
[1,]    0    1    1    1    1
[2,]    0    0    1    1    1
[3,]    0    0    0    1    0
[4,]    0    0    0    0    0
[5,]    0    0    0    0    0
> sid <- structIntervDist(G,H1)
> shd <- hammingDist(G,H1)
> cat("SHD between G and H1: ",shd,"\n")
SHD between G and H1:  1 
> cat("SID between G and H1: ",sid$sid,"\n")
SID between G and H1:  0 
> #cat("The matrix of incorrect interventional distributions is: ","\n")
> #show(sid$incorrectMat)
> cat("\n")

> cat("==============","\n")
============== 
> cat("\n")

> cat("estimated DAG H2:\n")
estimated DAG H2:
> show(H2)
     [,1] [,2] [,3] [,4] [,5]
[1,]    0    0    1    1    1
[2,]    1    0    1    1    1
[3,]    0    0    0    0    0
[4,]    0    0    0    0    0
[5,]    0    0    0    0    0
> sid <- structIntervDist(G,H2)
> shd <- hammingDist(G,H2)
> cat("SHD between G and H2: ",shd,"\n")
SHD between G and H2:  1 
> cat("SID between G and H2: ",sid$sid,"\n")
SID between G and H2:  8 
> cat("The matrix of incorrect interventional distributions is: ","\n")
The matrix of incorrect interventional distributions is:  
> show(sid$incorrectMat)
     [,1] [,2] [,3] [,4] [,5]
[1,]    0    1    1    1    1
[2,]    1    0    1    1    1
[3,]    0    0    0    0    0
[4,]    0    0    0    0    0
[5,]    0    0    0    0    0
> 
> readline("The SID can also be applied to CPDAGs. Please press enter...")
The SID can also be applied to CPDAGs. Please press enter...
[1] ""
> cat("\n")

> cat("==============","\n")
============== 
> cat("\n")

> cat("estimated CPDAG H1c:\n")
estimated CPDAG H1c:
> H1c <- rbind(c(0,1,1,1,1),c(1,0,1,1,1),c(1,1,0,1,0),c(1,1,1,0,0),c(1,1,0,0,0)) 
> show(H1c)
     [,1] [,2] [,3] [,4] [,5]
[1,]    0    1    1    1    1
[2,]    1    0    1    1    1
[3,]    1    1    0    1    0
[4,]    1    1    1    0    0
[5,]    1    1    0    0    0
> sid <- structIntervDist(G,H1c)
Error in library.dynam(lib, package, package.lib) : 
  DLL 'magrittr' not found: maybe not installed for this architecture?
Calls: structIntervDist ... namespaceImportFrom -> asNamespace -> loadNamespace -> library.dynam
Execution halted