# NOT RUN {
#========================================================================================
# From this plot, we can evaluate the minimum value of x such that
# the value is negative.
#========================================================================================
x <- runif(100,-1,3 ) # Syntheisze 100 smaples from Uniform(-1,3)
y <- priorResearch(x)
plot(x,y)
# }
Run the code above in your browser using DataLab