пропозиції роботи
Temat: Symulacje rozprzestrzeniania informacji
Cześć,Mam problem z zadaniem,
Pobieram dane z pliku,
Generuje graf,
Losuje 5 wierzcholków
z tych 5 pobieram ich sasiadow i "zarazam"
i tak w kolko az wszystkich zaraze
moj kod wyglada nastepujaca i niestety mam problem z tym, ze pobieram tylko 1 z 5 losowych wierzchołków
gdzie jest błąd?
Jestem poczatkującym z R i niestety napotykam wiele problemów
library(igraph)
graf<-read.table("C:/Users/Łukasz/Desktop/R_test/1_1.txt")
graf <- graph.data.frame(graf,directed=FALSE)
chory = abs(round(rnorm(5,18,20)))
V(graf)$color <- 'green'
#()$color <- 'black'
#sąsiedztwo chorych
#nn <- neighborhood( graf, order=1, nodes=V(graf) )
for (m in graf)
{
m <- neighbors(graf, chory)
}
#a <- neighbors(graf, "0")
V(graf)[chory]$color <- 'red'
V(graf)[m]$color <- 'blue'
plot(graf, vertex.size=8, vertex.label.color="black", edge.color="black", edge.arrow.width=0.4, type="zdrowy")
legend("topleft", legend=c("zdrowy", "chory"),col=c("green", "red"), cex=0.5, title="legenda:", horiz=TRUE,pch=19,text.width=0.2)
plik ktory dolaczam wyglada nastepująco
1 0
2 1
3 0
4 1
5 0
6 1
7 3
8 1
9 3
10 3
11 10
12 1
13 1
14 1
15 1
16 10
17 1
18 1
19 1
20 1
21 19
22 16
23 0
24 0
25 1
26 1
27 3
28 19
29 12
30 22
31 1
32 0
33 15
34 13
35 0
36 35
37 32
38 26
39 0
40 19
41 13
42 0
43 3
44 1
45 25
46 0
47 13
48 47
49 3
