#1. How many entries are in the data file?

df <- readRDS(“C:/Users/Admin Account/Downloads/FairTraders_Receipts_and_StorageBins.rds”)

num_entries <- nrow(df) num_columns <- ncol(df) data_structure <- str(df) column_names <- colnames(df)

num_entries num_columns data_structure column_names

#Answer: 6275201 entries, 15 columns, and names have been derived.

#2. What percentage of product was received by each business unit?

business_unit_percentage <- prop.table(table(df$CustGroup)) * 100 business_unit_percentage

#3. What percentage of orders were Purchase Orders?

purchase_orders_percentage <- prop.table(table(df$SourceType))*100 purchase_orders_percentage

#4. What percentage of orders were received by the eCommerce business unit through a purchase order?

ecommernce_purchaseorder_percentage <- prop.table(table(df\(CustGroup, df\)SourceType))*100

ecommernce_purchaseorder_percentage

#5. What percentage of orders were received by the Wholesale business unit through a purchase order?

wholesale_purchaseorder_percentage <- prop.table(table(df\(CustGroup, df\)SourceType))*100

wholesale_purchaseorder_percentage

#6. What percentage of orders were stored as a pallet?

purchase_orders_percentage <- prop.table(table(df$BinSize))*100 purchase_orders_percentage

#7. What percentage of orders were received as a purchase order and stored in a chicken box?

purchaseorder_chickenbox_data <- subset(df, df\(SourceType == "PurchaseOrder" & df\)Binsize == “Chicken Box”) total_orders <- nrow(df) purchaseorder_chickenbox_count <- nrow(purchaseorder_chickenbox_data) purchaseorder_chickenbox_percentage <- (purchaseorder_chickenbox_count / total_orders) * 100 purchaseorder_chickenbox_percentage

#8. What percentage of orders were received as a purchase order or stored in a chicken box?

total_orders <- nrow(df) purchase_order_count <- nrow(subset(df, df\(SourceType == "PurchaseOrder")) chicken_box_count <- nrow(subset(df, df\)Binsize == “Chicken Box”)) po_chicken_box_count <- nrow(subset(df, df\(SourceType == "PurchaseOrder" & df\)Binsize == “Chicken Box”)) either_condition_count <- purchase_order_count + chicken_box_count - po_chicken_box_count either_condition_percentage <- (either_condition_count / total_orders) * 100 either_condition_percentage