product_names    <- c("Laptop", "Smartphone", "Tablet", "Headphones", 
                      "Smartwatch", "Printer", "Keyboard", "Monitor")
unit_prices      <- c(185000, 95000, 68000, 12500, 28000, 42000, 8500, 56000)
units_sold       <- c(35, 80, 45, 160, 90, 38, 210, 52)
unit_costs       <- c(150000, 76000, 52000, 6500, 19000, 33000, 4200, 43000)
advertising_cost <- c(180000, 220000, 90000, 60000, 85000, 45000, 50000, 75000)
orders           <- c(35, 78, 44, 150, 88, 36, 200, 50)
returned_orders  <- c(2, 5, 2, 12, 6, 3, 8, 2)


product_data <- data.frame(
  Product          = product_names,
  Unit_Price       = unit_prices,
  Units_Sold       = units_sold,
  Unit_Cost        = unit_costs,
  Advertising_Cost = advertising_cost,
  Orders           = orders,
  Returned_Orders  = returned_orders )


head(product_data, 5)
dim(product_data) 
str(product_data)

product_data$Revenue <- product_data$Unit_Price * product_data$Units_Sold
product_data$COGS <- product_data$Unit_Cost * product_data$Units_Sold
product_data$Gross_Profit <- product_data$Revenue - product_data$COGS
product_data$Net_Contribution <- product_data$Gross_Profit - product_data$Advertising_Cost
product_data$Profit_Margin <-(product_data$Net_Contribution / product_data$Revenue) * 100
product_data$Return_Rate <- (product_data$Returned_Orders / product_data$Orders) * 100

print(product_data)