PageRank の収束
この演習では、連続する反復ごとの差をプロットして、PageRank がどのように収束していくかを目視で確認します。
この演習はコースの一部です
R で学ぶネットワークデータの予測分析
演習の手順
valueという空のベクトルを作成します。- 15 ステップの
forループを書きます。ループの各ステップで、i回の反復でnetworkの PageRank を計算し、vector属性をcbind()を使ってvalueに列として追加します。 value内の連続する各 PageRank ベクトル同士の絶対差を計算し、differenceに代入します。differenceベクトルをプロットして、PageRank 値の収束を確認します。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Create an empty vector
___ <- c()
# Write a loop to compute PageRank
for(i in 1:___){
value <- cbind(value, page.rank(___, algo = 'power',options = list(niter = ___))$vector)
}
# Compute the differences
difference <- colSums(abs(___[,1:14] - ___[,2:15]))
# Plot the differences
___(1:14, difference)