changed error in scaleweights

lsteinmann · lsteinmann · commit 09211eb040de · 2020-06-04T14:39:03.000+03:00
diff --git a/R/scaleweights.R b/R/scaleweights.R
@@ -19,7 +19,7 @@ scaleweight <- function(DAT_df, var = c("all", 2) ) {
       res_DAT_df <- rbind(res_DAT_df, wip)
     }
   } else {
-    DAT_df$weight <- DAT_df$weight / sum(DAT_mat$weight)
+    DAT_df$weight <- DAT_df$weight / sum(DAT_df$weight)
     res_DAT_df <- DAT_df
   }
   return(res_DAT_df)

Original file line number	Diff line number	Diff line change
`@@ -19,7 +19,7 @@ scaleweight <- function(DAT_df, var = c("all", 2) ) {`
`19`	`19`	`res_DAT_df <- rbind(res_DAT_df, wip)`
`20`	`20`	`}`
`21`	`21`	`} else {`
`22`		`- DAT_df$weight <- DAT_df$weight / sum(DAT_mat$weight)`
	`22`	`+ DAT_df$weight <- DAT_df$weight / sum(DAT_df$weight)`
`23`	`23`	`res_DAT_df <- DAT_df`
`24`	`24`	`}`
`25`	`25`	`return(res_DAT_df)`