## Not run:
# result1<-est_power_curve(n=63, f=0.01, rho=2, lambda0=5, phi0=0.5)
# result2<-est_power_curve(n=63, f=0.05, rho=2, lambda0=5, phi0=0.5)
# plot_power_curve(list(result1,result2))
# ## End(Not run)
Run the code above in your browser using DataLab