x
# Specify sample occurrences (x), sample size (n) and confidence levelx = 6n = 30confidence_level = 0.95# Calculate the point estimate, alpha, the critical z-value, the standard error, and the margin of errorpoint_estimate = x/nalpha = (1-confidence_level)critical_z = qnorm(1-alpha/2)standard_error = sqrt(point_estimate*(1-point_estimate)/n)margin_of_error = critical_z * standard_error# Calculate the lower and upper bound of the confidence intervallower_bound = point_estimate - margin_of_errorupper_bound = point_estimate + margin_of_error# Print the resultssprintf("Point Estimate: %0.3f", point_estimate)sprintf("Critical Z-value: %0.3f", critical_z)sprintf("Margin of Error: %0.3f", margin_of_error)sprintf("Confidence Interval: [%0.3f,%0.3f]", lower_bound, upper_bound)sprintf("The %0.1f%% confidence interval for the population proportion is:", confidence_level*100)sprintf("between %0.4f and %0.4f", lower_bound, upper_bound)[1] "Point Estimate: 0.200" [1] "Critical Z-value: 1.960" [1] "Margin of Error: 0.143" [1] "Confidence Interval: [0.057,0.343]" [1] "The 95.0% confidence interval for the population proportion is:" [1] "between 0.0569 and 0.3431"