setwd("C:/Rtest")
D <- as.matrix(read.csv("Data.csv",row.names = 1)) # １列目に行名が入っている場合は、こちらを使う
# D <- as.matrix(read.csv("Data.csv")) # １列目に行名が入っていない場合は、#を取る
D
eigen(D)$values # 固有値
eigen(D)$vectors # 固有ベクトル
固有値分析 のRによる実施例です。
setwd("C:/Rtest")
D <- as.matrix(read.csv("Data.csv",row.names = 1)) # １列目に行名が入っている場合は、こちらを使う
# D <- as.matrix(read.csv("Data.csv")) # １列目に行名が入っていない場合は、#を取る
D
eigen(D)$values # 固有値
eigen(D)$vectors # 固有ベクトル
setwd("C:/Rtest")
D <- as.matrix(read.csv("Data.csv",row.names = 1)) # １列目に行名が入っている場合は、こちらを使う
# D <- as.matrix(read.csv("Data.csv")) # １列目に行名が入っていない場合は、#を取る
D
t(D) # 転置行列
t(D) %*% D # 内積
D %*% t(D) # 内積
round(eigen(t(D) %*% D)$values,4) # 内積 少数以下第４位まで出力
round(eigen(D %*% t(D))$values,4) # 内積 少数以下第４位まで出力
