Aprendiendo una bayesian network
Ana Laura Diedrichs
marzo, 2017
En el siguiente experimento observaremos como cambia el número de enlaces en el grafo para distintos niveles de discretización.
A medida que los intervalos de discretización aumentan, observamos menos menos edges en el grafo, aunque dicha disminución no se realiza de forma continua
Verificar si:
cambian los vecinos a medida que se modifica los intervalos de discretización
analizar (notamos algún nodo “relevante” o relaciones interesantes??)
library(bnlearn)##
## Attaching package: 'bnlearn'## The following object is masked from 'package:stats':
##
## sigmalibrary(igraph)##
## Attaching package: 'igraph'## The following objects are masked from 'package:bnlearn':
##
## compare, degree, path, subgraphDATA2 <- read.csv("~/phd-repos/tmin/tmin/datasets/DATA2.csv")
for(i in 4:20)
{
d2 = discretize(DATA2[,-1], method = 'hartemink', breaks = i, ibreaks = 20)
cat("breaks ",i) #muestra cuantos intervalos hay
print(unique(d2[2])) # muestra intervalos de discretizacion (valores desde y hasta)
dag <- hc(d2) # Learn the structure of a Bayesian network using a hill-climbing (HC)
#dag <- si.hiton.pc(d2)
print("matriz adyacencia")
print(amat(dag))
cat("# edges ",nrow(dag$arcs))
g <- graph.adjacency(amat(dag), mode="directed",add.rownames="code")
#' jpeg(file = paste(PLOT_PATH,"/",x$name,".jpg",sep = ""))
plot(g,layout =layout.fruchterman.reingold,vertex.size=4,
vertex.label.dist=0.5, vertex.color="red", edge.arrow.size=0.4)#edge.arrow.size=.5, edge.width=1,vertex.label.font=.51)
}## breaks 4 S11
## 1 (19.5,41]
## 12 (14.5,19.5]
## 18 (7,14.5]
## 266 (-6,7]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 1 1
## S11 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S17 0 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S1 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 1 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 1 0 0 0 1 0 0 0 0 0 1 0 1 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0
## S5 0 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 1 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 37
## breaks 5 S11
## 1 (19.5,28]
## 2 (28,41]
## 12 (14.5,19.5]
## 18 (7,14.5]
## 266 (-6,7]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 1 1
## S11 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S14 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## S18 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0
## S1 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 1 0 1 0 0
## S20 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 1 0 0 0 1 0 0 0 0 0 1 0 1 0 0 0
## S3 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S5 0 0 1 0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 1 0
## S6 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 37
## breaks 6 S11
## 1 (19.5,28]
## 2 (28,41]
## 12 (14.5,19.5]
## 18 (10.5,14.5]
## 34 (7,10.5]
## 266 (-6,7]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 1 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 1 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 1 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0
## S6 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0
## S7 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1
## S8 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 1
## S9 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 37
## breaks 7 S11
## 1 (19.5,28]
## 2 (28,41]
## 12 (14.5,19.5]
## 18 (10.5,14.5]
## 34 (7,10.5]
## 266 (2,7]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 1 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 1 1 0 1 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 1 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0
## S6 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0
## S7 1 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## S8 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0
## S9 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 35
## breaks 8 S11
## 1 (24,28]
## 2 (28,41]
## 8 (19.5,24]
## 12 (14.5,19.5]
## 18 (10.5,14.5]
## 34 (7,10.5]
## 266 (2,7]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S14 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## S20 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 1 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0
## S6 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 28
## breaks 9 S11
## 1 (24,28]
## 2 (28,41]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (10.5,14.5]
## 34 (7,10.5]
## 266 (2,7]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 1 1 1 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0
## S6 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 20
## breaks 10 S11
## 1 (24,28]
## 2 (28,41]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (10.5,14.5]
## 34 (7,10.5]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0
## S6 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
## breaks 11 S11
## 1 (24,28]
## 2 (28,41]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (10.5,13]
## 34 (7,10.5]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
## breaks 12 S11
## 1 (24,28]
## 2 (28,33]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (10.5,13]
## 34 (7,10.5]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
## breaks 13 S11
## 1 (24,28]
## 2 (28,33]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (10.5,13]
## 34 (9,10.5]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 1 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
## breaks 14 S11
## 1 (24,28]
## 2 (28,33]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 1 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
## breaks 15 S11
## 1 (24,28]
## 2 (28,33]
## 8 (22,24]
## 9 (19.5,22]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
## breaks 16 S11
## 1 (24,28]
## 2 (28,33]
## 8 (22,24]
## 9 (19.5,22]
## 12 (18,19.5]
## 13 (17,18]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 1 0 0 1 1 0 1 0 0 0 0 0 0 1 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
## S2 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
## breaks 17 S11
## 1 (24,28]
## 2 (28,33]
## 8 (22,24]
## 9 (19.5,22]
## 12 (18,19.5]
## 13 (17,18]
## 14 (15.5,17]
## 18 (13,14.5]
## 20 (14.5,15.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
## breaks 18 S11
## 1 (24,28]
## 2 (28,30]
## 8 (22,24]
## 9 (19.5,22]
## 12 (18,19.5]
## 13 (17,18]
## 14 (15.5,17]
## 18 (13,14.5]
## 20 (14.5,15.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 145 (30,33]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
## breaks 19 S11
## 1 (25.5,28]
## 2 (28,30]
## 7 (24,25.5]
## 8 (22,24]
## 9 (19.5,22]
## 12 (18,19.5]
## 13 (17,18]
## 14 (15.5,17]
## 18 (13,14.5]
## 20 (14.5,15.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 145 (30,33]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
## breaks 20 S11
## 1 (25.5,28]
## 2 (28,30]
## 7 (24,25.5]
## 8 (22,24]
## 9 (20.5,22]
## 11 (19.5,20.5]
## 12 (18,19.5]
## 13 (17,18]
## 14 (15.5,17]
## 18 (13,14.5]
## 20 (14.5,15.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 145 (30,33]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1
## S11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## S7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 19
Realizamos el mismo procedimiento pero con el structure learning algoritm HITON-PC the Semi-Interleaved HITON-PC constraint-based algorithms
for(i in 4:20)
{
d2 = discretize(DATA2[,-1], method = 'hartemink', breaks = i, ibreaks = 20)
cat("breaks ",i) #muestra cuantos intervalos hay
print(unique(d2[2])) # muestra intervalos de discretizacion (valores desde y hasta)
#dag <- hc(d2) # Learn the structure of a Bayesian network using a hill-climbing (HC)
dag <- si.hiton.pc(d2)
print("matriz adyacencia")
print(amat(dag))
cat("# edges ",nrow(dag$arcs))
g <- graph.adjacency(amat(dag), mode="directed",add.rownames="code")
#' jpeg(file = paste(PLOT_PATH,"/",x$name,".jpg",sep = ""))
plot(g,layout =layout.fruchterman.reingold,vertex.size=4,
vertex.label.dist=0.5, vertex.color="red", edge.arrow.size=0.4)#edge.arrow.size=.5, edge.width=1,vertex.label.font=.51)
}## breaks 4 S11
## 1 (19.5,41]
## 12 (14.5,19.5]
## 18 (7,14.5]
## 266 (-6,7]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 1 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 16
## breaks 5 S11
## 1 (19.5,28]
## 2 (28,41]
## 12 (14.5,19.5]
## 18 (7,14.5]
## 266 (-6,7]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 12
## breaks 6 S11
## 1 (19.5,28]
## 2 (28,41]
## 12 (14.5,19.5]
## 18 (10.5,14.5]
## 34 (7,10.5]
## 266 (-6,7]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 10
## breaks 7 S11
## 1 (19.5,28]
## 2 (28,41]
## 12 (14.5,19.5]
## 18 (10.5,14.5]
## 34 (7,10.5]
## 266 (2,7]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 14
## breaks 8 S11
## 1 (24,28]
## 2 (28,41]
## 8 (19.5,24]
## 12 (14.5,19.5]
## 18 (10.5,14.5]
## 34 (7,10.5]
## 266 (2,7]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0
## S13 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## S5 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 12
## breaks 9 S11
## 1 (24,28]
## 2 (28,41]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (10.5,14.5]
## 34 (7,10.5]
## 266 (2,7]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## S11 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 4
## breaks 10 S11
## 1 (24,28]
## 2 (28,41]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (10.5,14.5]
## 34 (7,10.5]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 6
## breaks 11 S11
## 1 (24,28]
## 2 (28,41]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (10.5,13]
## 34 (7,10.5]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 6
## breaks 12 S11
## 1 (24,28]
## 2 (28,33]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (10.5,13]
## 34 (7,10.5]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 6
## breaks 13 S11
## 1 (24,28]
## 2 (28,33]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (10.5,13]
## 34 (9,10.5]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 6
## breaks 14 S11
## 1 (24,28]
## 2 (28,33]
## 8 (19.5,24]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 6
## breaks 15 S11
## 1 (24,28]
## 2 (28,33]
## 8 (22,24]
## 9 (19.5,22]
## 12 (17,19.5]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 6
## breaks 16 S11
## 1 (24,28]
## 2 (28,33]
## 8 (22,24]
## 9 (19.5,22]
## 12 (18,19.5]
## 13 (17,18]
## 14 (14.5,17]
## 18 (13,14.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 6
## breaks 17 S11
## 1 (24,28]
## 2 (28,33]
## 8 (22,24]
## 9 (19.5,22]
## 12 (18,19.5]
## 13 (17,18]
## 14 (15.5,17]
## 18 (13,14.5]
## 20 (14.5,15.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 4
## breaks 18 S11
## 1 (24,28]
## 2 (28,30]
## 8 (22,24]
## 9 (19.5,22]
## 12 (18,19.5]
## 13 (17,18]
## 14 (15.5,17]
## 18 (13,14.5]
## 20 (14.5,15.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 145 (30,33]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 4
## breaks 19 S11
## 1 (25.5,28]
## 2 (28,30]
## 7 (24,25.5]
## 8 (22,24]
## 9 (19.5,22]
## 12 (18,19.5]
## 13 (17,18]
## 14 (15.5,17]
## 18 (13,14.5]
## 20 (14.5,15.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 145 (30,33]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 4
## breaks 20 S11
## 1 (25.5,28]
## 2 (28,30]
## 7 (24,25.5]
## 8 (22,24]
## 9 (20.5,22]
## 11 (19.5,20.5]
## 12 (18,19.5]
## 13 (17,18]
## 14 (15.5,17]
## 18 (13,14.5]
## 20 (14.5,15.5]
## 26 (12,13]
## 28 (10.5,12]
## 34 (9,10.5]
## 145 (30,33]
## 173 (7,9]
## 191 (33,41]
## 266 (4.5,7]
## 394 (2,4.5]
## 401 [-6,2]
## [1] "matriz adyacencia"
## S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S1 S20 S2 S3 S4 S5 S6 S7 S8 S9
## S10 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S11 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S12 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## S9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## # edges 4
# IGNORAR DESDE AQUI!!
# sensores <- read.csv("~/phd-repos/tmin/tmin/datasets/sensores.csv")
# d1 = discretize(sensores, method = 'hartemink', breaks = 4, ibreaks = 20)
# dag1 <- hc(sensores)
#discrete data
# data("learning.test")
# pdag=iamb(learning.test)
# pdag