# \donttest{
output <- SCA(Data = MSEtool::SimulatedData)
# Profile R0 only
pro <- profile(output, R0 = seq(1000, 2000, 50))
# Profile both R0 and steepness
pro <- profile(output, R0 = seq(1000, 2000, 100), h = seq(0.8, 0.95, 0.025))
# Ensure your grid is of proper resolution. A grid that is too coarse
# will likely distort the shape of the likelihood surface.
# }
Run the code above in your browser using DataLab