Update function_brnet.R

aterui · Oct 17, 2020 · d8ff5cf · d8ff5cf
1 parent 0f1c8bb
commit d8ff5cf
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/R/function_brnet.R b/R/function_brnet.R
@@ -218,13 +218,13 @@ brnet <- function(n_patch,
   v_distance_to_root <- m_distance[1, ]
 
   df_asymmetry <- expand.grid(patch1 = seq_len(n_patch), patch2 = seq_len(n_patch)) %>%
-                    dplyr::mutate(d1 = v_distance_to_root[.data$patch1],
-                                  d2 = v_distance_to_root[.data$patch2]) %>%
-                    dplyr::mutate(delta = .data$d2 - .data$d1,
-                                  distance = m_distance[cbind(.data$patch1, .data$patch2)]) %>%
-                    dplyr::mutate(x = 0.5 * (.data$distance - .data$delta)) %>%
-                    dplyr::mutate(weighted_distance = (1 + asymmetry_factor) * .data$x + asymmetry_factor * .data$delta) %>%
-                    dplyr::filter(.data$patch1 != .data$patch2)
+    dplyr::mutate(d1 = v_distance_to_root[.data$patch1],
+                  d2 = v_distance_to_root[.data$patch2]) %>%
+    dplyr::mutate(delta = .data$d2 - .data$d1,
+                  distance = m_distance[cbind(.data$patch1, .data$patch2)]) %>%
+    dplyr::mutate(x = 0.5 * (.data$distance - .data$delta)) %>%
+    dplyr::mutate(weighted_distance = (1 + asymmetry_factor) * .data$x + asymmetry_factor * .data$delta) %>%
+    dplyr::filter(.data$patch1 != .data$patch2)
 
   m_weighted_distance <- m_distance
   m_weighted_distance[cbind(df_asymmetry$patch1, df_asymmetry$patch2)] <- df_asymmetry$weighted_distance