Use R studio script to solve the problem

set.seed(2024) kickstarter_data <- read.csv("ks-projects-201801.csv") head(kickstarter_data)

Suppose you are interested in the variable "usd_pledged_real". Please use a simple random sample with size 5000 and estimate the population average and its standard deviation.