set.seed(12)
tmp <- rnorm(100, mean = 100, sd = 1)
set.seed(12)
outliers <- rnorm(10, mean = (1.5 * summary(tmp)[["3rd Qu."]]), sd = 1)
## Bind the columns together
dat <- data.frame(cbind(c(tmp, outliers),
                        c(rep("Expected", each = length(tmp)),
                          rep("Outlier", each = length(outliers)))))
## Add Column Names
colnames(dat) <- c("Units", "Category")

## Convert ECL values to numeric
dat$Units <- as.numeric(as.character(dat$Units))