Service as a Freelancer

If you want hire me as a freelancer please use the following links.

Read B_time_1

#Read tha matrix
f <- read.csv("B_time_1.csv",header = F)
mat <- as.matrix(f)
rownames(mat) <- seq.default(0,61)
colnames(mat) <- seq.default(0,61)

Heatmap 1

Heatmap 2

Network Construction

## IGRAPH a338e3e UNW- 62 159 -- 
## + attr: name (v/c), weight (e/n)
## + edges from a338e3e (vertex names):
##  [1] 0 --10 0 --14 0 --15 0 --40 0 --42 0 --47 1 --17 1 --19 1 --26 1 --27
## [11] 1 --28 1 --36 1 --41 1 --54 2 --10 2 --42 2 --44 2 --61 3 --8  3 --14
## [21] 3 --59 4 --51 5 --9  5 --13 5 --56 5 --57 6 --9  6 --13 6 --17 6 --54
## [31] 6 --56 6 --57 7 --19 7 --27 7 --30 7 --40 7 --54 8 --20 8 --28 8 --37
## [41] 8 --45 8 --59 9 --13 9 --17 9 --32 9 --41 9 --57 10--29 10--42 10--47
## [51] 11--51 12--33 13--17 13--32 13--41 13--54 13--57 14--16 14--24 14--33
## [61] 14--34 14--37 14--38 14--40 14--43 14--50 14--52 15--18 15--24 15--40
## [71] 15--45 15--55 15--59 16--20 16--33 16--37 16--38 16--50 17--22 17--25
## + ... omitted several edges

HeatMap 3 using Edges

Interactive HeatMap 3