Skip to content
Snippets Groups Projects
Commit 7a63c940 authored by Maria Voigt's avatar Maria Voigt
Browse files

fixing really important bug having switched sd with mean

parent cc8992e4
No related branches found
No related tags found
No related merge requests found
...@@ -73,8 +73,8 @@ scale.predictors.grid <- function(predictor_names_for_scaling, ...@@ -73,8 +73,8 @@ scale.predictors.grid <- function(predictor_names_for_scaling,
for (predictor_name in predictor_names_for_scaling){ for (predictor_name in predictor_names_for_scaling){
mean_predictor_obs <- mean(predictors_obs[ , paste0("unscaled_", predictor_name)], na.rm = T) mean_predictor_obs <- mean(predictors_obs[ , paste0("unscaled_", predictor_name)])
sd_predictor_obs <- mean(predictors_obs[ , paste0("unscaled_", predictor_name)], na.rm = T) sd_predictor_obs <- sd(predictors_obs[ , paste0("unscaled_", predictor_name)])
predictors[predictors$predictor == predictor_name, predictors[predictors$predictor == predictor_name,
"value" ] <- (predictors[predictors$predictor == predictor_name, "value" ] <- (predictors[predictors$predictor == predictor_name,
"unscaled_value" ] - mean_predictor_obs) / "unscaled_value" ] - mean_predictor_obs) /
...@@ -107,8 +107,8 @@ scale.predictors.grid <- function(predictor_names_for_scaling, ...@@ -107,8 +107,8 @@ scale.predictors.grid <- function(predictor_names_for_scaling,
predictors_grid$y_center <- NA predictors_grid$y_center <- NA
for (predictor_name in predictor_names_add){ for (predictor_name in predictor_names_add){
mean_predictor_obs <- mean(predictors_obs[ , paste0("unscaled_", predictor_name)], na.rm = T) mean_predictor_obs <- mean(predictors_obs[ , paste0("unscaled_", predictor_name)])
sd_predictor_obs <- mean(predictors_obs[ , paste0("unscaled_", predictor_name)], na.rm = T) sd_predictor_obs <- sd(predictors_obs[ , paste0("unscaled_", predictor_name)])
predictors_grid[ , predictors_grid[ ,
predictor_name] <- (predictors_grid[ , predictor_name] <- (predictors_grid[ ,
paste0("unscaled_", predictor_name) ] - paste0("unscaled_", predictor_name) ] -
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment