Sample dataset creation

set.seed(123) data <- data.frame( Policy_ID = 1:1000, Customer_Age = sample(20:70, 1000, replace = TRUE), Annual_Premium = round(runif(1000, 500, 3000), 2), Claim_Frequency = rpois(1000, lambda = 1), Claim_Severity = round(rlnorm(1000, meanlog = 7, sdlog = 0.5), 2), Competitor_Price = round(runif(1000, 400, 3200), 2), Churn = sample(0:1, 1000, replace = TRUE, prob = c(0.8, 0.2)) ) write.csv(data, “insurance_pricing.csv”, row.names = FALSE) head(data,5)