Renigma <- function (n){
x=runif(n)
y=runif(n,min=0,max=(1−x) ∧ 2)
data. f rame (x=x,y=y)

Create a function, called , which draws 100 datapoints from the enigma distribution above, fits a regression of y on x, then returns the slope coefficient.
Run your experiment function 1000 times and plot a histogram of your result. What do you notice about the sampling distribution?
a. Left Skewed
b. Normal Shaped (Eyeball it. Don't do a formal test.)
c. Right Skewed