# NOT RUN {
x <- rnorm(500, 15, 5)
#5 hours of heat to stop counting the negative units.
heat_restriction(x, model = "nc",nh = 5)
#24 hours of heat to stop counting the negative units.
heat_restriction(x, model = "nc", nh = 24)
# }
Run the code above in your browser using DataLab