test: improve HITS test (#1449)

Author: aviator-app[bot]

tests/testthat/test-authority.score.R

@@ -118,16 +118,33 @@ test_that("`hits_score()` works -- authority", {
     x
   }
 
-  g1 <- sample_pa(100, m = 10)
+  g1 <- make_graph(
+    c(1, 3, 1, 6, 1, 10, 2, 1, 3, 1, 4, 2, 4, 7, 4, 9, 5, 4, 5, 6, 5, 8, 6, 3,
+      7, 1, 7, 5, 7, 6, 7, 10, 8, 4, 9, 6, 10, 5, 10, 7),
+    directed = TRUE)
   A <- as_adj(g1, sparse = FALSE)
   s1 <- eigen(t(A) %*% A)$vectors[, 1]
   s2 <- hits_scores(g1)$authority
+  expect_equal(
+    s2,
+    c(0.519632767970952, 0.0191587307007462, 0.327572049088003,
+      0.238728053455971, 0.449690304629051, 1, 0.0966933781044594,
+      0.204851318050036, 0.0191587307007462, 0.653243552177761)
+  )
   expect_equal(mscale(s1), mscale(s2), ignore_attr = TRUE)
 
-  g2 <- sample_gnp(100, 2 / 100)
+  g2 <- make_graph(
+    c(1, 2, 1, 4, 2, 3, 2, 4, 3, 1, 3, 5, 4, 3, 5, 1, 5, 2),
+    directed = TRUE
+  )
   A <- as_adj(g2, sparse = FALSE)
   s1 <- eigen(t(A) %*% A)$vectors[, 1]
   s2 <- hits_scores(g2)$authority
+  expect_equal(
+    s2,
+    c(0.763521118433368, 1, 0.546200349457202,
+      0.918985947228995, 0.28462967654657)
+  )
   expect_equal(mscale(s1), mscale(s2), ignore_attr = TRUE)
 
 })
@@ -143,16 +160,33 @@ test_that("`hits_scores()` works -- hub", {
     x
   }
 
-  g1 <- sample_pa(100, m = 10)
+  g1 <- make_graph(
+    c(1, 3, 1, 6, 1, 10, 2, 1, 3, 1, 4, 2, 4, 7, 4, 9, 5, 4, 5, 6, 5, 8, 6, 3,
+      7, 1, 7, 5, 7, 6, 7, 10, 8, 4, 9, 6, 10, 5, 10, 7),
+    directed = TRUE)
   A <- as_adj(g1, sparse = FALSE)
   s1 <- eigen(A %*% t(A))$vectors[, 1]
   s2 <- hits_scores(g1)$hub
+  expect_equal(
+    s2,
+    c(0.755296579522977, 0.198139015063149, 0.198139015063149,
+      0.0514804231207635, 0.550445261472941, 0.124905139108053,
+      1, 0.0910284037021176, 0.381305851509012, 0.208339295395331)
+  )
   expect_equal(mscale(s1), mscale(s2), ignore_attr = TRUE)
 
-  g2 <- sample_gnp(100, 2 / 100)
+  g2 <- make_graph(
+    c(1, 2, 1, 4, 2, 3, 2, 4, 3, 1, 3, 5, 4, 3, 5, 1, 5, 2),
+    directed = TRUE
+  )
   A <- as_adj(g2, sparse = FALSE)
   s1 <- eigen(A %*% t(A))$vectors[, 1]
   s2 <-  hits_scores(g2)$hub
+  expect_equal(
+    s2,
+    c(1, 0.763521118433368, 0.546200349457203,
+      0.28462967654657, 0.918985947228995)
+  )
   expect_equal(mscale(s1), mscale(s2), ignore_attr = TRUE)
 
 })