-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
109 lines (109 loc) · 3.31 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
knitr::include_graphics("02_subgraph.png")
suppressMessages(suppressWarnings(library(igraph)))
# grafos
g1 <- graph_from_literal(0-1, 1-2, 2-3, 3-4, 4-0)
g2 <- graph_from_literal(a-c, a-d, b-d, b-e, c-e)
# isomorfos?
# ver ayuda acerca de 'method'
isomorphic(g1, g2, method = "auto")
# visualización
set.seed(123)
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2")
# visualización
set.seed(123)
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2")
# visualización
# set.seed(123)
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2")
# visualización
# set.seed(123)
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2")
# visualización
set.seed(23)
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2")
# visualización
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2")
# visualización
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2", layout = layout_as_star)
# visualización
set.seed(123)
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2", layout = layout_as_star)
# visualización
set.seed(123)
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2", layout = layout_as_star, vertex.size = 1)
# visualización
set.seed(123)
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2", layout = layout_with_fr)
# visualización
set.seed(123)
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2", layout = layout_with_kk)
# visualización
set.seed(123)
par(mfrow = c(1,2))
plot(g1, vertex.size = 15, main = "Grafo 1")
plot(g2, vertex.size = 15, main = "Grafo 2", layout = layout_as_star)
isomorphic(g1, g2, method = "auto")
isomorphic(g1, g2)
# red no dirigida
g <- graph_from_literal(1-2, 1-3, 2-3, 2-4, 3-5, 4-5, 4-6, 4-7, 5-6, 6-7)
# visualización
set.seed(123)
plot(g)
# vecinos del vértice 1
neighbors(graph = g, v = 1)
library(igraph)
distances(graph = karate)
distances(graph = karate)
library(sand)
data("karate")
?sprintf('La base karate tiene un tamaño %')
?sprintf('La base karate es de orden %d y tiene un tamaño %d',
vcount(karate), ecount(karate))
sprintf('La base karate es de orden %d y tiene un tamaño %d',
vcount(karate), ecount(karate))
distances(graph = karate)
head(
cbind(
closeness(graph = karate, normalized = F),
1/apply(X = D, MARGIN = 1, FUN = sum),
1/apply(X = D, MARGIN = 2, FUN = sum)), n = 5)
D <- distances(graph = karate)
head(
cbind(
closeness(graph = karate, normalized = F),
1/apply(X = D, MARGIN = 1, FUN = sum),
1/apply(X = D, MARGIN = 2, FUN = sum)), n = 5)
n <- vcount(karate) #Orden de la red (número de vértices)
head(
cbind(
closeness(graph = karate, normalized = T),
(n - 1)/apply(X = D, MARGIN = 1, FUN = sum),
(n - 1)/apply(X = D, MARGIN = 2, FUN = sum)), n = 5)
cc <- closeness(graph = karate, normalized = T)
head(sort(cc, decreasing = T), n = 5)
head(karate)
distances(graph = karate)
head(D)
head(D)