私は100個のベクトルからなるこの固有ベクトル行列を持っています。私が持っている問題は、ベクトルの値がほとんどゼロでないことです(平均e-10の場合)!以下は、1つのベクターの例である:私は私が値を持って取得するように、私は何とか各ベクトルをスケールアップすることができるかどうかを知りたい各ベクトルの値をスケールアップする方法
0.000000245023212264631
-0.00000000928673421733024
-0.00000000702744206187778
-0.0400022257147745
0.000715047161691289
0.000178299491594312
0.000000000000000111022302462516
-0.000000000000000444089209850063
-0.0000311452059972295
0.000000928320962476081
0.00025873217452001
-0.0000073255984986786
0.000226706852668388
-0.00000637215108697076
-0.00000741641656228371
0.000000000466042723561714
0.000000000279056699407741
-0.00000000926312312226756
0.00000000000000000000000000323117426778526
0.000000000000000000000000000403896783473158
-0.0366691252097418
-0.0305829466924761
-0.0300306491122465
0.99163522436172
-0.0000000033133072963138
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000331297544425818
-0.0000100525189687
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
0.000000100784783009722
-0.00000000339576544864114
-0.0000000033133072963138
-0.0000000033133072963138
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
-0.00000000339576544864114
0.000000000128704479996649
0.000000000128704479996649
0.000000000128704479996649
0.000000000128704479996649
0.000000000128704479996649
0.000000000128704479996649
0.000000000128704479996649
0.000000000128704479996649
0.000000000229274956160153
0.000000000128704479996649
0.000000000128704479996649
0.000000000229274956160153
0.000000000128704479996649
0.000000000128704479996649
0.000000000128704479996649
0.000000000128704479996649
0.000000000128704479996649
は固有ベクトルの財産を破壊することなく、可能な限り1から接近している(のために0.0000001ではなく0.01)。これは、すべてのプロパティを台無ししかし、どのようなものについてならば、私は知らない
library(igraph)
M <- data.matrix(test)
G <- graph.data.frame(M, directed = FALSE)
L <- laplacian_matrix(G, normalized = FALSE, weights = NULL, sparse = FALSE)
options(scipen=999)
df <- data.frame(eigen(L))
df[,1] <- NULL
write.table(df[,1], file = "~/test.csv", row.names=FALSE, col.names=FALSE, sep=",")