data(result_example)
b<-fit_powerest(result_example$power,result_example$avg_logFC,result_example$avg_PCT)
pred <- pred_powerest(b,xlim= c(0,6),ylim=c(0,1))
plotly_powerest(pred,fig_title='Power estimation result')
Run the code above in your browser using DataLab