Function that has a biased selection

Non_random_selection.R

# Example of a function that creates a biased distribution

# Packages --------------------------------------------------------------------
library(ggplot2)

# Constants -------------------------------------------------------------------

data_size = 10000
test_index = 10

# Data Evaluation -------------------------------------------------------------
# Generates a vector of random numbers
vec = runif(data_size)*test_index - 1

# Apply 'max' function over the vector
vec = sapply(vec, function(x) max(x, 1))

df = data.frame(value = vec)

# Plot ------------------------------------------------------------------------
p = ggplot(df, aes(x = value)) +
  geom_histogram()

p