Estimate probability of success and confidence intervals using R

Question

So this table is from a file that I display using the R code: [read.csv()].

Question: I am now ask to estimate the probability of success using the parametric