Calculate proper upper limit of OY for all if-cases

References #82.
statnet · Jun 18, 2024 · ddb0f45 · ddb0f45
1 parent 5b8d52c
commit ddb0f45
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/R/degreedist.R b/R/degreedist.R
@@ -88,16 +88,13 @@ degreedist.egor <- function(object, freq = FALSE, prob = !freq,
   if(prob){
     if(is.null(by)){
       scaledeg <- sum(deg.ego)
-      deg.ego <- deg.ego/scaledeg
-      maxfreq <- max(deg.ego, na.rm = TRUE)
     } else {
       scaledeg <- rowSums(deg.ego)
-      deg.ego <- deg.ego/scaledeg
-      deg.ego <- deg.ego
-      maxfreq <- max(max(deg.ego, na.rm = TRUE))
       beside <- TRUE
     }
+    deg.ego <- deg.ego/scaledeg
   }
+  maxfreq <- max(deg.ego, na.rm=TRUE)
 
   if(plot){
     if(brgmod) {