rBatt · February 5, 2016 15:16
diff --git a/replace_threshold.R b/replace_threshold.R
 df <- data.frame(x = rnorm(20, mean=20, sd = 10))
 threshold <- 25
 replace_val <- 0

 df[,"x2"] <- df[,"x"] # make them the same to start
 df[df[,"x"] >= threshold, "x2"] <- replace_val # replace values at or above threshold with replacement value
	df <- data.frame(x = rnorm(20, mean=20, sd = 10))
	threshold <- 25
	replace_val <- 0

	df[,"x2"] <- df[,"x"] # make them the same to start
	df[df[,"x"] >= threshold, "x2"] <- replace_val # replace values at or above threshold with replacement value