Analyzing Network from Macaque Data Set

library(igraph)

## 
## Attaching package: 'igraph'

## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum

## The following object is masked from 'package:base':
## 
##     union

library(igraphdata)

data("macaque")
LM <- graph.laplacian(macaque)

Untuk mengkomputasikan ruang kosong dari matrix Laplacian, kita harus membuat format matrix numerikal dalam format

LM <- as.numeric(LM)
LLM <- matrix(LM, 50, 50)

## Warning in matrix(LM, 50, 50): data length [2025] is not a sub-multiple or
## multiple of the number of rows [50]

komputasikan matrix Laplacian yang dinormalisasikan dari grafis yang tidak terarahkan untuk dataset macaque.

LM2 <- graph.laplacian(macaque, normalized = TRUE)

LM2 <- as.numeric(LM2)
LLM2 <- matrix(LM2, 50, 50)

## Warning in matrix(LM2, 50, 50): data length [2025] is not a sub-multiple or
## multiple of the number of rows [50]

komputasikan nilai eigen menggunakan fungsi eigen().

EE <- eigen(LLM2)

dan dari perhitungan akan diperoleh hasil beriut

sum(EE$values)

## [1] -0.6769231+0i