testit <- function() {
message("testing package startup messages")
packageStartupMessage("initializing ...", appendLF = FALSE)
Sys.sleep(1)
packageStartupMessage(" done")
}
suppressPackageStartupMessages(testit())
## testing package startup messages
library(caret)
## Loading required package: lattice
## Loading required package: ggplot2
library(ggplot2)
library(quantmod)
## Loading required package: xts
## Loading required package: zoo
##
## Attaching package: 'zoo'
##
## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric
##
## Loading required package: TTR
## Version 0.4-0 included new data defaults. See ?getSymbols.
library(igraph)
setwd("~/git/")
DATAITX <- load("SAN_270412.RData")
SAN <- h05n
head(SAN)
## hora precio volumen broker.comprador broker.vendedor
## 1 2012-04-27 09:00:00.000 4.59 60 9838 8830
## 2 2012-04-27 09:00:00.000 4.59 33 9816 8830
## 3 2012-04-27 09:00:00.000 4.59 100 9838 8830
## 4 2012-04-27 09:00:00.000 4.59 13300 9838 8830
## 5 2012-04-27 09:00:00.000 4.59 200 9843 8830
## 6 2012-04-27 09:00:00.000 4.59 680 9838 8830
brokerInt<-SAN[,4:5]
el=as.matrix(brokerInt)
el[,1]=as.character(el[,1])
el[,2]=as.character(el[,2])
g=graph.edgelist(el)
a=get.adjacency(g,sparse=FALSE)
a
## 9838 8830 9816 9843 9819 9889 9802 9832 9821 9573 9884 9426 9820 9846
## 9838 34 149 34 72 447 6 4 16 21 1 62 10 140 4
## 8830 4 38 2 16 89 1 0 3 6 0 34 2 35 0
## 9816 15 36 7 24 129 2 3 4 4 1 32 5 29 0
## 9843 26 54 21 31 132 2 1 5 9 0 20 7 34 0
## 9819 41 216 71 115 254 4 1 23 19 3 124 12 133 3
## 9889 0 11 1 3 12 0 0 0 1 0 2 0 5 0
## 9802 0 8 2 5 20 0 0 0 1 0 6 0 3 0
## 9832 6 13 5 9 92 0 0 10 3 0 40 0 6 0
## 9821 5 16 3 14 45 0 1 0 4 0 14 3 29 0
## 9573 0 6 1 3 20 0 0 0 2 0 0 1 1 0
## 9884 4 110 13 36 182 0 5 5 14 1 72 5 111 0
## 9426 1 9 2 3 39 0 0 1 1 0 9 1 20 0
## 9820 4 36 3 11 58 1 0 6 8 0 4 2 12 0
## 9846 0 4 0 2 17 0 0 0 1 0 0 0 1 0
## 9473 0 5 0 3 18 0 1 0 0 0 2 0 3 0
## 9583 1 4 0 0 9 0 0 0 0 0 0 1 1 0
## 9389 1 0 0 0 7 0 0 0 0 0 2 0 3 0
## 9837 9 10 8 8 31 0 0 1 0 0 16 0 20 0
## 9391 17 93 28 64 123 3 4 13 16 1 54 4 54 2
## 9432 9 62 7 35 80 0 5 10 10 0 40 9 29 2
## 9890 4 32 1 10 47 0 1 4 1 1 21 2 4 1
## 9584 0 3 1 2 5 0 0 0 2 0 4 0 4 0
## 9404 9 54 14 23 48 1 3 6 11 1 37 5 23 1
## 9894 3 8 0 4 12 0 0 3 1 0 8 0 12 0
## 9410 0 0 0 0 6 0 0 0 1 0 1 0 0 0
## 9373 12 52 10 30 57 1 1 8 5 0 18 4 18 0
## 8824 43 216 26 108 242 0 6 14 50 2 64 16 113 1
## 9880 32 226 25 97 207 1 7 42 15 1 106 9 134 0
## 9384 1 4 0 1 6 0 0 0 0 0 2 0 0 0
## 8829 6 17 3 18 42 0 3 3 9 0 10 1 10 0
## 9577 24 97 24 41 114 0 4 16 12 2 34 6 27 1
## 9860 0 0 0 0 1 0 0 0 0 0 0 0 1 0
## 9488 0 0 0 0 6 0 0 0 1 0 2 0 1 0
## 9355 5 19 8 13 44 0 2 3 2 0 9 3 3 0
## 9845 0 6 0 1 1 0 0 0 5 0 3 0 0 0
## 9474 0 4 0 1 12 0 0 0 1 0 1 2 3 0
## 9431 5 21 8 12 30 1 1 6 1 1 26 0 21 0
## 9859 5 4 1 2 5 0 0 0 0 0 3 1 3 0
## 9423 1 1 1 0 0 0 0 0 0 0 0 0 0 0
## 9397 1 0 0 1 0 0 0 0 0 0 0 0 0 0
## 8822 4 50 1 21 135 2 1 0 2 0 42 4 44 1
## 9856 0 1 0 1 1 0 0 0 0 0 1 0 4 0
## 9824 3 9 2 10 42 2 3 0 3 0 11 0 5 0
## 9575 2 16 4 2 40 0 0 2 1 0 7 0 10 0
## 9833 0 0 0 0 0 0 1 0 0 0 0 0 1 0
## 9424 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## 9419 0 3 0 1 9 0 1 0 0 0 2 0 0 0
## 9896 1 0 0 0 1 0 0 3 0 0 0 0 0 0
## 9891 0 0 0 0 2 0 0 0 1 0 0 0 0 0
## 8825 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9403 133 238 79 230 365 10 14 32 52 3 163 31 132 5
## 9367 0 2 0 1 1 0 0 0 0 0 1 0 2 0
## 8821 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9370 10 103 9 50 81 0 0 1 17 0 58 0 11 1
## 9479 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## 9369 19 64 33 41 100 3 5 16 14 0 32 7 45 1
## 9579 0 0 0 0 4 0 0 0 0 0 0 0 2 0
## 9871 0 0 1 1 2 0 0 0 0 0 0 0 0 0
## 9435 7 6 9 13 29 0 1 2 2 2 1 16 5 0
## 9472 0 3 0 0 1 0 0 0 1 0 0 0 0 0
## 9382 0 1 0 0 3 0 0 0 0 0 0 0 0 0
## 9413 1 2 1 0 0 0 0 0 0 0 1 0 0 0
## 9887 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## 9428 0 2 0 0 0 0 0 0 1 0 1 0 0 0
## 9847 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## 9854 0 0 0 0 3 0 0 0 0 0 5 0 4 0
## 9407 1 19 0 1 0 0 1 0 1 0 1 0 0 0
## 9892 0 0 0 0 1 0 0 0 0 0 1 0 0 0
## 9441 2 3 1 1 0 0 1 0 2 0 0 0 1 0
## 9465 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9897 4 14 6 7 13 1 0 0 4 0 1 3 7 0
## 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9378 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9581 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9393 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9473 9583 9389 9837 9391 9432 9890 9584 9404 9894 9410 9373 8824 9880
## 9838 9 0 0 21 164 61 36 0 8 11 11 25 33 144
## 8830 3 0 2 2 48 30 9 0 14 3 1 11 12 96
## 9816 0 0 0 3 46 47 12 0 20 7 9 15 9 82
## 9843 3 1 0 3 50 23 13 0 6 4 3 20 17 101
## 9819 11 0 3 33 160 125 65 1 25 22 2 117 60 373
## 9889 0 0 0 1 7 2 0 0 2 1 6 2 1 2
## 9802 1 0 0 1 6 3 2 0 3 0 0 3 4 12
## 9832 0 0 0 11 28 19 2 0 12 1 2 5 19 95
## 9821 1 0 0 3 22 10 8 0 11 1 0 9 10 88
## 9573 0 0 0 0 5 2 0 0 1 1 6 3 1 6
## 9884 3 0 0 14 85 38 39 1 11 4 0 88 42 128
## 9426 1 0 0 1 11 6 4 0 0 0 10 4 0 13
## 9820 2 0 0 2 31 9 9 0 9 0 1 19 4 62
## 9846 0 0 0 0 4 1 2 0 0 0 0 1 0 3
## 9473 1 0 0 4 8 2 0 0 0 1 0 3 1 4
## 9583 0 0 0 0 4 1 0 0 0 0 0 0 0 3
## 9389 0 0 0 0 5 0 1 0 0 0 2 1 3 0
## 9837 1 0 0 0 16 7 1 0 2 4 1 10 3 35
## 9391 6 0 0 20 69 54 23 1 17 8 1 36 42 123
## 9432 2 0 0 3 47 16 12 1 8 3 0 45 24 95
## 9890 0 0 0 0 25 10 4 0 6 1 0 17 2 51
## 9584 0 0 0 0 8 1 1 0 1 0 3 2 1 19
## 9404 4 0 0 7 61 13 16 0 13 2 2 31 16 67
## 9894 0 0 0 1 12 3 3 0 6 0 0 4 4 15
## 9410 0 0 0 0 3 3 0 0 0 0 1 0 0 2
## 9373 2 0 0 4 56 12 11 2 6 3 0 16 14 75
## 8824 8 0 0 28 149 125 45 1 63 13 2 84 80 403
## 9880 2 0 1 29 113 59 73 0 22 11 1 100 90 262
## 9384 0 0 0 1 1 2 1 0 1 0 0 0 1 0
## 8829 1 0 0 0 18 20 19 0 8 1 1 7 19 46
## 9577 2 2 3 10 82 44 33 1 29 9 0 51 16 177
## 9860 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9488 1 0 0 0 1 0 0 0 0 1 1 1 0 2
## 9355 1 0 0 0 17 10 5 0 3 1 0 10 2 25
## 9845 0 0 0 1 0 4 1 0 0 0 1 0 1 2
## 9474 0 0 0 0 0 0 0 0 0 0 0 0 3 3
## 9431 1 0 0 6 26 6 29 0 3 3 1 23 19 28
## 9859 0 0 0 0 2 0 0 0 1 0 0 0 0 6
## 9423 0 0 0 0 2 0 0 0 0 0 0 1 1 1
## 9397 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8822 7 0 0 2 33 29 7 0 20 6 0 6 9 95
## 9856 0 0 0 0 1 1 0 0 0 0 0 0 0 0
## 9824 0 0 0 0 12 15 1 0 5 0 1 3 7 67
## 9575 1 0 0 0 21 3 2 0 7 0 0 1 4 37
## 9833 0 0 0 0 0 0 0 0 1 0 0 1 1 3
## 9424 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9419 0 0 0 0 0 1 0 0 1 0 0 0 1 1
## 9896 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9891 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8825 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9403 16 0 6 57 141 202 95 3 35 59 3 130 89 302
## 9367 0 0 0 0 3 0 0 0 0 0 0 0 0 0
## 8821 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9370 0 0 0 1 59 15 13 0 12 0 0 67 9 118
## 9479 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9369 2 0 0 22 40 25 28 1 7 11 0 27 35 61
## 9579 0 0 0 0 3 0 0 0 0 0 0 0 0 0
## 9871 0 0 0 0 0 0 0 0 0 2 0 0 0 1
## 9435 1 0 0 0 5 4 2 0 2 1 0 0 1 8
## 9472 0 0 0 0 2 0 1 0 0 0 0 1 0 0
## 9382 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9413 0 0 0 0 2 5 2 0 0 1 0 1 4 3
## 9887 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9428 0 0 0 0 8 1 0 0 0 0 0 1 0 5
## 9847 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## 9854 0 0 0 0 0 2 0 0 0 0 0 0 0 1
## 9407 0 0 0 0 11 3 0 0 3 0 0 1 15 12
## 9892 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9441 0 0 0 1 2 0 0 0 0 1 0 0 0 2
## 9465 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9897 0 0 0 1 11 1 2 0 1 2 0 16 1 42
## 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9378 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9581 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9393 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## 9384 8829 9577 9860 9488 9355 9845 9474 9431 9859 9423 9397 8822 9856
## 9838 0 141 40 0 0 4 0 0 2 10 0 0 26 1
## 8830 0 43 29 0 0 0 0 0 6 0 0 0 7 0
## 9816 1 15 15 0 0 0 0 1 2 2 0 0 13 0
## 9843 1 40 30 0 0 0 0 0 3 1 0 0 9 0
## 9819 3 220 107 0 0 6 1 0 7 15 0 0 44 0
## 9889 0 4 5 0 0 0 0 0 0 0 0 0 4 0
## 9802 0 2 2 0 0 1 0 0 0 0 0 0 3 0
## 9832 0 18 5 0 0 0 0 0 1 0 0 0 8 0
## 9821 0 16 6 0 0 0 0 2 3 0 0 0 5 0
## 9573 0 2 5 0 0 0 0 0 0 0 0 0 0 0
## 9884 0 94 36 0 0 5 0 1 3 5 0 0 19 0
## 9426 0 10 4 0 0 2 0 0 0 1 0 0 4 0
## 9820 0 23 9 0 0 0 0 0 0 1 0 0 7 1
## 9846 0 6 0 0 0 0 0 0 0 0 0 0 0 0
## 9473 0 3 0 0 0 0 0 0 0 1 0 0 0 0
## 9583 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9389 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## 9837 0 16 4 0 0 0 0 0 2 2 0 0 2 0
## 9391 1 60 53 0 0 10 1 1 3 5 0 0 25 1
## 9432 1 40 24 0 1 1 2 0 2 3 0 0 15 0
## 9890 2 17 20 0 0 0 0 0 1 1 0 0 5 0
## 9584 0 3 3 0 0 0 0 0 2 0 0 0 1 0
## 9404 0 41 16 0 0 1 0 0 1 1 0 0 12 0
## 9894 0 3 2 0 0 1 0 0 0 0 0 0 1 0
## 9410 0 0 0 0 0 0 0 0 0 0 0 0 1 0
## 9373 0 48 17 0 1 3 0 0 8 0 0 0 8 0
## 8824 5 164 60 0 0 13 1 2 9 8 0 0 33 2
## 9880 4 166 82 0 0 2 1 3 9 0 0 0 53 0
## 9384 0 2 0 0 0 0 0 0 0 0 0 0 0 0
## 8829 0 12 22 0 0 3 0 1 5 0 0 0 3 0
## 9577 2 54 41 0 0 4 1 1 3 6 0 0 23 1
## 9860 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## 9488 0 3 0 0 0 0 0 0 0 0 0 0 2 0
## 9355 0 6 4 0 0 0 0 0 1 1 0 0 1 0
## 9845 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## 9474 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9431 0 23 11 0 0 0 0 0 6 1 0 0 10 1
## 9859 0 2 0 0 0 0 0 0 0 0 0 0 0 0
## 9423 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9397 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8822 0 23 13 0 0 1 1 1 0 2 0 0 7 0
## 9856 0 1 0 0 0 0 0 0 0 0 0 0 1 0
## 9824 0 7 1 0 0 1 0 0 3 2 0 0 0 0
## 9575 0 7 3 0 0 0 0 0 0 0 0 0 3 0
## 9833 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## 9424 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9419 0 1 2 0 0 0 0 0 0 0 0 0 0 0
## 9896 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9891 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8825 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9403 13 211 159 0 2 10 1 4 2 4 0 1 73 4
## 9367 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8821 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## 9370 1 3 0 0 0 0 0 0 0 4 0 0 9 0
## 9479 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## 9369 2 77 24 0 1 0 0 0 0 3 0 0 22 0
## 9579 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## 9871 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## 9435 0 8 3 0 0 0 0 0 1 1 0 0 0 0
## 9472 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9382 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9413 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9887 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9428 0 4 0 0 0 0 0 0 0 0 0 0 0 0
## 9847 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9854 0 1 1 0 0 0 0 0 0 0 0 0 0 0
## 9407 0 9 0 0 0 0 0 0 1 0 0 0 1 0
## 9892 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9441 0 1 12 0 0 0 0 0 0 0 0 0 0 0
## 9465 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9897 0 9 2 0 0 8 0 0 1 2 0 0 0 0
## 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9378 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9581 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9393 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9824 9575 9833 9424 9419 9896 9891 8825 9403 9367 8821 9370 9479 9369
## 9838 8 2 0 1 2 0 53 0 428 3 1 2 0 102
## 8830 0 5 2 0 0 0 0 0 73 0 2 0 0 28
## 9816 3 3 1 0 1 0 12 0 104 1 0 2 0 34
## 9843 1 1 0 0 3 0 9 1 185 2 0 0 0 36
## 9819 27 39 2 0 2 1 7 0 352 3 1 2 1 31
## 9889 0 0 0 0 0 0 2 0 23 1 0 0 0 0
## 9802 0 0 0 0 0 0 2 0 22 0 0 0 0 3
## 9832 3 0 0 0 1 0 9 0 48 1 0 0 0 30
## 9821 1 0 0 0 0 0 4 0 83 0 0 0 0 7
## 9573 0 0 0 0 0 0 1 0 14 0 0 0 0 4
## 9884 5 11 1 0 0 1 3 0 186 2 0 2 0 27
## 9426 0 2 0 0 0 0 2 0 44 2 0 0 0 2
## 9820 3 0 1 0 0 0 3 0 48 0 1 0 0 15
## 9846 0 0 0 0 0 0 0 0 1 0 0 0 0 2
## 9473 0 0 0 0 0 0 0 0 16 0 0 0 0 2
## 9583 0 0 0 0 0 0 1 0 2 0 0 0 0 0
## 9389 0 0 0 0 0 0 0 0 5 0 0 0 0 1
## 9837 1 0 0 0 0 0 1 0 35 0 0 2 0 13
## 9391 27 11 1 0 2 0 16 0 119 1 2 2 2 28
## 9432 5 11 0 0 1 0 0 0 144 1 1 3 0 13
## 9890 3 5 0 0 0 0 1 0 74 0 0 2 0 15
## 9584 0 0 0 0 0 0 1 0 5 0 0 0 0 2
## 9404 7 6 0 0 1 0 7 0 72 0 0 1 0 37
## 9894 1 0 0 0 0 0 0 0 32 0 0 0 0 7
## 9410 0 0 0 0 0 0 1 0 1 0 0 0 0 0
## 9373 16 5 1 0 0 0 6 0 60 0 0 5 0 15
## 8824 18 21 2 1 5 0 13 0 430 1 1 2 0 97
## 9880 44 55 2 0 2 0 25 0 178 1 0 2 0 46
## 9384 0 0 0 0 0 0 0 0 10 0 0 0 0 4
## 8829 12 2 0 0 0 0 2 0 44 1 0 0 0 8
## 9577 10 20 0 0 3 0 4 0 237 0 0 1 0 44
## 9860 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9488 0 0 0 0 0 0 0 0 5 0 0 0 0 1
## 9355 2 5 0 0 0 0 3 0 39 0 0 2 1 13
## 9845 0 0 0 0 0 0 3 0 0 0 0 0 0 0
## 9474 0 0 0 0 0 0 1 0 6 0 0 1 0 1
## 9431 1 6 0 0 1 0 3 0 40 0 0 0 1 5
## 9859 0 0 0 0 0 0 1 0 4 0 0 0 0 2
## 9423 1 0 0 0 0 0 0 0 5 0 0 0 0 0
## 9397 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## 8822 4 0 0 1 1 0 0 0 151 2 0 0 0 36
## 9856 0 0 0 0 0 0 0 0 5 0 0 0 0 0
## 9824 0 0 0 0 0 0 1 0 27 0 0 0 0 14
## 9575 1 0 0 0 0 0 1 0 29 0 0 0 0 11
## 9833 0 0 0 0 0 0 0 0 2 0 0 0 0 0
## 9424 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9419 0 0 0 0 0 0 0 0 4 0 0 0 0 1
## 9896 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9891 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8825 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9403 63 20 12 7 3 0 18 0 273 8 7 5 0 56
## 9367 0 0 0 0 0 0 0 0 3 0 0 0 0 0
## 8821 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9370 7 0 0 0 1 0 39 0 52 0 0 53 0 57
## 9479 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9369 13 14 1 0 1 0 8 0 65 0 1 1 0 0
## 9579 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9871 0 0 0 0 0 0 0 0 2 0 0 0 0 0
## 9435 0 0 0 0 0 0 1 0 9 0 0 1 0 7
## 9472 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## 9382 0 0 0 0 0 0 0 0 2 0 0 0 0 0
## 9413 0 0 0 0 0 0 0 0 4 0 0 0 0 0
## 9887 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9428 0 0 0 0 0 0 0 0 5 0 0 0 0 1
## 9847 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9854 0 0 0 0 0 0 0 0 9 0 0 0 0 2
## 9407 0 0 0 0 0 0 0 0 16 0 0 0 0 1
## 9892 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9441 0 0 0 0 0 0 0 0 2 0 0 0 0 3
## 9465 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9897 37 1 0 0 2 0 0 0 54 0 0 0 0 14
## 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9378 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9581 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9393 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9579 9871 9435 9472 9382 9413 9887 9428 9847 9854 9407 9892 9441 9465
## 9838 0 1 9 0 0 0 0 0 0 0 3 0 4 0
## 8830 0 0 1 0 0 0 0 6 0 2 2 0 0 0
## 9816 0 0 0 1 0 0 0 0 0 5 0 0 2 0
## 9843 0 0 4 0 0 0 0 1 0 1 0 0 1 0
## 9819 0 1 21 8 0 2 0 2 1 40 1 0 3 0
## 9889 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## 9802 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9832 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9821 0 0 8 1 0 0 0 0 0 1 1 0 0 0
## 9573 0 0 0 0 0 0 0 0 0 0 0 0 1 0
## 9884 0 0 8 0 0 2 0 1 0 13 11 0 0 0
## 9426 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## 9820 0 0 3 0 0 1 1 0 0 0 0 0 1 0
## 9846 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9473 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9583 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9389 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9837 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## 9391 0 0 6 1 0 0 1 0 0 13 2 1 1 1
## 9432 0 0 2 1 0 1 1 0 0 2 0 0 0 0
## 9890 0 0 0 0 0 0 0 0 0 2 1 0 0 0
## 9584 0 0 2 0 0 0 0 0 0 0 0 0 0 0
## 9404 0 2 3 0 0 1 0 1 0 3 2 0 0 0
## 9894 0 1 0 0 0 0 0 1 0 0 0 0 0 0
## 9410 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9373 0 1 4 0 0 0 0 1 0 7 1 0 0 0
## 8824 0 2 21 0 0 0 0 0 0 8 13 1 5 0
## 9880 0 1 20 0 0 1 0 1 4 36 5 0 2 0
## 9384 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8829 0 0 1 0 0 1 0 0 0 2 0 0 1 0
## 9577 0 0 9 1 0 0 1 0 0 4 2 0 2 0
## 9860 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9488 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9355 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9845 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9474 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## 9431 0 1 2 0 0 0 0 1 0 1 2 0 0 0
## 9859 0 0 0 0 0 0 0 0 0 2 0 0 0 0
## 9423 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9397 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8822 0 0 0 0 0 1 0 2 0 0 1 0 1 0
## 9856 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9824 0 0 0 0 0 0 0 1 0 1 1 0 1 0
## 9575 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9833 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9424 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9419 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9896 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9891 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8825 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9403 0 2 17 3 2 0 0 5 0 36 7 0 6 0
## 9367 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## 8821 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9370 0 1 0 0 0 1 0 0 0 0 0 0 0 0
## 9479 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9369 0 1 9 0 0 0 1 0 0 9 1 0 1 0
## 9579 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## 9871 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9435 0 1 0 0 0 0 0 1 0 2 0 0 0 0
## 9472 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9382 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9413 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9887 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9428 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9847 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9854 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9407 0 0 0 0 0 0 0 0 0 1 0 0 0 0
## 9892 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9441 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9465 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9897 0 0 7 0 0 0 0 0 0 0 0 0 0 0
## 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9378 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9581 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9393 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9897 0 9378 9581 9393
## 9838 0 0 0 0 0
## 8830 0 0 0 0 0
## 9816 0 0 0 0 0
## 9843 0 0 0 0 0
## 9819 0 0 0 1 0
## 9889 0 0 0 0 0
## 9802 0 0 0 0 0
## 9832 0 0 0 0 0
## 9821 0 0 0 0 0
## 9573 0 0 0 0 0
## 9884 0 0 0 0 0
## 9426 0 0 0 0 0
## 9820 0 0 0 0 0
## 9846 0 0 0 0 0
## 9473 0 0 0 0 0
## 9583 0 0 0 0 0
## 9389 0 0 0 0 0
## 9837 0 0 0 0 0
## 9391 0 0 0 0 0
## 9432 0 0 0 0 0
## 9890 0 0 0 0 0
## 9584 0 0 0 0 0
## 9404 0 0 1 0 0
## 9894 0 0 0 0 0
## 9410 0 0 0 0 0
## 9373 0 0 0 0 0
## 8824 3 0 0 0 0
## 9880 0 0 0 0 0
## 9384 0 0 0 0 0
## 8829 0 0 0 0 0
## 9577 0 0 0 1 0
## 9860 0 0 0 0 0
## 9488 0 0 0 0 0
## 9355 0 0 0 0 0
## 9845 0 0 0 0 0
## 9474 0 0 0 0 0
## 9431 0 0 0 0 0
## 9859 0 0 0 0 0
## 9423 0 0 0 0 0
## 9397 0 0 0 0 0
## 8822 0 0 0 0 0
## 9856 0 0 0 0 0
## 9824 0 0 0 0 0
## 9575 0 0 0 0 0
## 9833 0 0 0 0 0
## 9424 0 0 0 0 0
## 9419 0 0 0 0 0
## 9896 0 0 0 0 0
## 9891 0 0 0 0 0
## 8825 0 0 0 0 0
## 9403 2 0 0 2 0
## 9367 0 0 0 0 0
## 8821 0 0 0 0 0
## 9370 0 0 0 0 0
## 9479 0 0 0 0 0
## 9369 0 0 0 0 0
## 9579 0 0 0 0 0
## 9871 0 0 0 0 0
## 9435 0 0 0 0 0
## 9472 0 0 0 0 0
## 9382 0 0 0 0 0
## 9413 0 0 0 0 0
## 9887 0 0 0 0 0
## 9428 0 0 0 0 0
## 9847 0 0 0 0 0
## 9854 0 0 0 0 0
## 9407 0 0 0 0 0
## 9892 0 0 0 0 0
## 9441 0 0 0 0 0
## 9465 0 0 0 0 0
## 9897 0 0 0 0 0
## 0 0 3 0 0 0
## 9378 0 0 0 0 0
## 9581 0 0 0 0 0
## 9393 0 0 0 0 0
adj<-as.data.frame(a)
save(adj, file = "adj.csv")
a=get.adjacency(g)
g.weight=graph.adjacency(a,mode="directed",weighted=TRUE)
plot(g.weight,edge.width=E(g.weight)$weight/2)
