Preview
FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023
NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023
Exhibit 32
FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023
NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023
library(civis)
library(tidyverse)
baseline_pay<‐c(7.09,7.09,7.09,7.09)
policy_pay <‐c(7.09,17.87,20.25,23.82) #update to reflect new rate
baseline_deliveries_hourly<‐c(1.63,1.63,1.63,1.63)
policy_deliveries_hourly <‐c(1.63,1.92,2.21,2.50)
baseline_expenses<‐c(3.06,3.06,3.06,3.06)
policy_expenses <‐c(3.06,2.98,2.90,2.82)
baseline_fees<‐c(3.06,3.06,3.06,3.06)
passthrough<‐ 1
baseline_deliveries<‐c(132.02,154.4634,180.7221178,211.449483)
demand_elasticity<‐ ‐1
food_at_home_share<‐.6486
restaurant_fees<‐.23
restaurant_margin_app<‐0
restaurant_margin_nonapp<‐.07
subtotal<‐ 23.81 #should not be hardcoded
tip<‐ .1727 * subtotal #should not be hardcoded
tax<‐ .08875 * subtotal
baseline_marginal_cost <‐baseline_pay/baseline_deliveries_hourly
policy_marginal_cost <‐policy_pay/policy_deliveries_hourly
marginal_cost_change <‐policy_marginal_cost‐baseline_marginal_cost
baseline_total_cost <‐baseline_fees+subtotal+tip+tax
total_cost_increase <‐marginal_cost_change/baseline_total_cost*passthrough
deliveries_change_pct <‐total_cost_increase*demand_elasticity
policy_deliveries <‐baseline_deliveries*(1+deliveries_change_pct)
"VOLUME ‐ BASELINE"
baseline_subtotals<‐baseline_deliveries*subtotal
baseline_hours<‐baseline_deliveries/baseline_deliveries_hourly
vol_bl<‐data.frame(
deliveries=baseline_deliveries,
subtotals=baseline_subtotals,
hours=baseline_hours,
FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023
NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023
deliveries_per_hour=baseline_deliveries_hourly,
subtotals_per_hour=baseline_subtotals/baseline_hours
) %>% print()
"VOLUME ‐ POLICY"
policy_subtotals<‐policy_deliveries*subtotal
policy_hours<‐policy_deliveries/policy_deliveries_hourly
vol_po<‐data.frame(
deliveries=policy_deliveries,
subtotals=policy_subtotals,
hours=policy_hours,
deliveries_per_hour=policy_deliveries_hourly,
subtotals_per_hour=policy_subtotals/policy_hours
) %>% print()
"VOLUME ‐ DIFFERENCE"
vol_po ‐ vol_bl
"APPS ‐ BASELINE TOTAL"
baseline_restaurant_fees_total<‐baseline_subtotals*restaurant_fees
baseline_customer_fees_total<‐baseline_fees*baseline_deliveries
baseline_wage_bill<‐baseline_marginal_cost*baseline_deliveries
baseline_gross_margin<‐baseline_restaurant_fees_total+(baseline_fees‐baseline_margi
nal_cost)*baseline_deliveries
apps_bl<‐data.frame(
total_revenue=baseline_restaurant_fees_total+baseline_customer_fees_total,
restaurant_fees=baseline_restaurant_fees_total,
customer_fees=baseline_customer_fees_total,
expense=baseline_wage_bill,
gross_margins=baseline_gross_margin
) %>% print()
"APPS ‐ BASELINE PER DELIVERY"
apps_bl/baseline_deliveries
"APPS ‐ POLICY TOTAL"
policy_restaurant_fees_total<‐policy_subtotals*restaurant_fees
policy_customer_fees<‐baseline_fees+marginal_cost_change*passthrough
policy_customer_fees_total<‐policy_customer_fees*policy_deliveries
policy_expense_app_total<‐policy_marginal_cost*policy_deliveries
policy_gross_margin<‐policy_restaurant_fees_total+policy_customer_fees_total‐policy
_expense_app_total
apps_po<‐data.frame(
total_revenue=policy_restaurant_fees_total+policy_customer_fees_total,
restaurant_fees=baseline_restaurant_fees_total,
customer_fees=policy_customer_fees_total,
FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023
NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023
expense=policy_expense_app_total,
gross_margins=policy_gross_margin
) %>% print()
"APPS ‐ POLICY PER DELIVERY"
apps_po/policy_deliveries
"APPS ‐ TOTAL DIFF"
apps_po‐apps_bl
"APPS ‐ PER DELIVERY DIFF"
apps_po/policy_deliveries ‐ apps_bl/baseline_deliveries
"CONSUMERS ‐ BASELINE TOTAL"
baseline_subtotal_tax<‐(subtotal+tax)*baseline_deliveries
baseline_tips<‐tip*baseline_deliveries
baseline_consumer_spending<‐baseline_subtotal_tax+baseline_tips+baseline_customer_f
ees_total
con_bl<‐data.frame(
total=baseline_consumer_spending,
subtotal_tax=baseline_subtotal_tax,
tips=baseline_tips,
fees=baseline_customer_fees_total
) %>% print()
"CONSUMERS ‐ BASELINE PER DELIVERY"
con_bl/baseline_deliveries
"CONSUMERS ‐ POLICY TOTAL"
policy_subtotal_tax<‐(subtotal+tax)*policy_deliveries
policy_tips<‐tip*policy_deliveries
policy_consumer_spending<‐policy_subtotal_tax+policy_tips+policy_customer_fees_tota
l
con_po<‐data.frame(
total=policy_consumer_spending,
subtotal_tax=policy_subtotal_tax,
tips=policy_tips,
fees=policy_customer_fees_total
) %>% print()
"CONSUMERS ‐ POLICY PER DELIVERY"
con_po/policy_deliveries
"CONSUMERS ‐ TOTAL DIFF"
con_po‐con_bl
"CONSUMERS ‐ PER DELIVERY DIFF"
con_po/policy_deliveries‐con_bl/baseline_deliveries
"WORKERS ‐ BASELINE TOTAL"
baseline_tips_hourly<‐7.09
FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023
NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023
baseline_earnings_hourly<‐baseline_pay+baseline_tips_hourly
baseline_net_earnings_hourly<‐baseline_earnings_hourly‐baseline_expenses
baseline_net_pay_hourly<‐baseline_pay‐baseline_expenses
wor_bl<‐data.frame(
earnings=baseline_earnings_hourly*baseline_hours,
pay=baseline_pay*baseline_hours,
tips=baseline_tips_hourly*baseline_hours,
expenses=baseline_expenses*baseline_hours,
net_earnings=baseline_net_earnings_hourly*baseline_hours,
net_pay=baseline_net_pay_hourly*baseline_hours
) %>% print()
"WORKERS ‐ BASELINE HOURLY"
wor_bl/baseline_hours
"WORKERS ‐ POLICY TOTAL"
policy_tips_hourly<‐tip*policy_deliveries_hourly
policy_earnings_hourly<‐policy_pay+policy_tips_hourly
policy_net_earnings_hourly<‐policy_earnings_hourly‐policy_expenses
policy_net_pay_hourly<‐policy_pay‐policy_expenses
wor_po<‐data.frame(
earnings=policy_earnings_hourly*policy_hours,
pay=policy_pay*policy_hours,
tips=policy_tips_hourly*policy_hours,
expenses=policy_expenses*policy_hours,
net_earnings=policy_net_earnings_hourly*policy_hours,
net_pay=policy_net_pay_hourly*policy_hours
) %>% print()
"WORKERS ‐ POLICY HOURLY"
wor_po/policy_hours
"WORKERS ‐ TOTAL DIFF"
wor_po‐wor_bl
"WORKERS ‐ HOURLY DIFF"
wor_po/policy_hours‐wor_bl/baseline_hours
"RESTAURANTS AND GROCERIES"
app_revenue<‐(vol_po‐vol_bl)[2]*(1‐restaurant_fees)
nonapp_revenue<‐ ‐1*(con_po$total‐con_bl$total)*(1‐food_at_home_share)
profit_gain<‐ nonapp_revenue*(restaurant_margin_nonapp‐restaurant_margin_app)
grocery_revenue_gain<‐ ‐1*(con_po$total‐con_bl$total)*food_at_home_share
rg_diff<‐data.frame(
rest_rev_total=app_revenue+nonapp_revenue,
rest_rev_app=app_revenue,
FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023
NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023
rest_rev_nonapp=nonapp_revenue,
rest_profit=profit_gain,
groc_rev_total=grocery_revenue_gain
) %>% print()
Preview
FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023 NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023 Exhibit 32 FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023 NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023 library(civis) library(tidyverse) baseline_pay<‐c(7.09,7.09,7.09,7.09) policy_pay <‐c(7.09,17.87,20.25,23.82) #update to reflect new rate baseline_deliveries_hourly<‐c(1.63,1.63,1.63,1.63) policy_deliveries_hourly <‐c(1.63,1.92,2.21,2.50) baseline_expenses<‐c(3.06,3.06,3.06,3.06) policy_expenses <‐c(3.06,2.98,2.90,2.82) baseline_fees<‐c(3.06,3.06,3.06,3.06) passthrough<‐ 1 baseline_deliveries<‐c(132.02,154.4634,180.7221178,211.449483) demand_elasticity<‐ ‐1 food_at_home_share<‐.6486 restaurant_fees<‐.23 restaurant_margin_app<‐0 restaurant_margin_nonapp<‐.07 subtotal<‐ 23.81 #should not be hardcoded tip<‐ .1727 * subtotal #should not be hardcoded tax<‐ .08875 * subtotal baseline_marginal_cost <‐baseline_pay/baseline_deliveries_hourly policy_marginal_cost <‐policy_pay/policy_deliveries_hourly marginal_cost_change <‐policy_marginal_cost‐baseline_marginal_cost baseline_total_cost <‐baseline_fees+subtotal+tip+tax total_cost_increase <‐marginal_cost_change/baseline_total_cost*passthrough deliveries_change_pct <‐total_cost_increase*demand_elasticity policy_deliveries <‐baseline_deliveries*(1+deliveries_change_pct) "VOLUME ‐ BASELINE" baseline_subtotals<‐baseline_deliveries*subtotal baseline_hours<‐baseline_deliveries/baseline_deliveries_hourly vol_bl<‐data.frame( deliveries=baseline_deliveries, subtotals=baseline_subtotals, hours=baseline_hours, FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023 NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023 deliveries_per_hour=baseline_deliveries_hourly, subtotals_per_hour=baseline_subtotals/baseline_hours ) %>% print() "VOLUME ‐ POLICY" policy_subtotals<‐policy_deliveries*subtotal policy_hours<‐policy_deliveries/policy_deliveries_hourly vol_po<‐data.frame( deliveries=policy_deliveries, subtotals=policy_subtotals, hours=policy_hours, deliveries_per_hour=policy_deliveries_hourly, subtotals_per_hour=policy_subtotals/policy_hours ) %>% print() "VOLUME ‐ DIFFERENCE" vol_po ‐ vol_bl "APPS ‐ BASELINE TOTAL" baseline_restaurant_fees_total<‐baseline_subtotals*restaurant_fees baseline_customer_fees_total<‐baseline_fees*baseline_deliveries baseline_wage_bill<‐baseline_marginal_cost*baseline_deliveries baseline_gross_margin<‐baseline_restaurant_fees_total+(baseline_fees‐baseline_margi nal_cost)*baseline_deliveries apps_bl<‐data.frame( total_revenue=baseline_restaurant_fees_total+baseline_customer_fees_total, restaurant_fees=baseline_restaurant_fees_total, customer_fees=baseline_customer_fees_total, expense=baseline_wage_bill, gross_margins=baseline_gross_margin ) %>% print() "APPS ‐ BASELINE PER DELIVERY" apps_bl/baseline_deliveries "APPS ‐ POLICY TOTAL" policy_restaurant_fees_total<‐policy_subtotals*restaurant_fees policy_customer_fees<‐baseline_fees+marginal_cost_change*passthrough policy_customer_fees_total<‐policy_customer_fees*policy_deliveries policy_expense_app_total<‐policy_marginal_cost*policy_deliveries policy_gross_margin<‐policy_restaurant_fees_total+policy_customer_fees_total‐policy _expense_app_total apps_po<‐data.frame( total_revenue=policy_restaurant_fees_total+policy_customer_fees_total, restaurant_fees=baseline_restaurant_fees_total, customer_fees=policy_customer_fees_total, FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023 NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023 expense=policy_expense_app_total, gross_margins=policy_gross_margin ) %>% print() "APPS ‐ POLICY PER DELIVERY" apps_po/policy_deliveries "APPS ‐ TOTAL DIFF" apps_po‐apps_bl "APPS ‐ PER DELIVERY DIFF" apps_po/policy_deliveries ‐ apps_bl/baseline_deliveries "CONSUMERS ‐ BASELINE TOTAL" baseline_subtotal_tax<‐(subtotal+tax)*baseline_deliveries baseline_tips<‐tip*baseline_deliveries baseline_consumer_spending<‐baseline_subtotal_tax+baseline_tips+baseline_customer_f ees_total con_bl<‐data.frame( total=baseline_consumer_spending, subtotal_tax=baseline_subtotal_tax, tips=baseline_tips, fees=baseline_customer_fees_total ) %>% print() "CONSUMERS ‐ BASELINE PER DELIVERY" con_bl/baseline_deliveries "CONSUMERS ‐ POLICY TOTAL" policy_subtotal_tax<‐(subtotal+tax)*policy_deliveries policy_tips<‐tip*policy_deliveries policy_consumer_spending<‐policy_subtotal_tax+policy_tips+policy_customer_fees_tota l con_po<‐data.frame( total=policy_consumer_spending, subtotal_tax=policy_subtotal_tax, tips=policy_tips, fees=policy_customer_fees_total ) %>% print() "CONSUMERS ‐ POLICY PER DELIVERY" con_po/policy_deliveries "CONSUMERS ‐ TOTAL DIFF" con_po‐con_bl "CONSUMERS ‐ PER DELIVERY DIFF" con_po/policy_deliveries‐con_bl/baseline_deliveries "WORKERS ‐ BASELINE TOTAL" baseline_tips_hourly<‐7.09 FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023 NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023 baseline_earnings_hourly<‐baseline_pay+baseline_tips_hourly baseline_net_earnings_hourly<‐baseline_earnings_hourly‐baseline_expenses baseline_net_pay_hourly<‐baseline_pay‐baseline_expenses wor_bl<‐data.frame( earnings=baseline_earnings_hourly*baseline_hours, pay=baseline_pay*baseline_hours, tips=baseline_tips_hourly*baseline_hours, expenses=baseline_expenses*baseline_hours, net_earnings=baseline_net_earnings_hourly*baseline_hours, net_pay=baseline_net_pay_hourly*baseline_hours ) %>% print() "WORKERS ‐ BASELINE HOURLY" wor_bl/baseline_hours "WORKERS ‐ POLICY TOTAL" policy_tips_hourly<‐tip*policy_deliveries_hourly policy_earnings_hourly<‐policy_pay+policy_tips_hourly policy_net_earnings_hourly<‐policy_earnings_hourly‐policy_expenses policy_net_pay_hourly<‐policy_pay‐policy_expenses wor_po<‐data.frame( earnings=policy_earnings_hourly*policy_hours, pay=policy_pay*policy_hours, tips=policy_tips_hourly*policy_hours, expenses=policy_expenses*policy_hours, net_earnings=policy_net_earnings_hourly*policy_hours, net_pay=policy_net_pay_hourly*policy_hours ) %>% print() "WORKERS ‐ POLICY HOURLY" wor_po/policy_hours "WORKERS ‐ TOTAL DIFF" wor_po‐wor_bl "WORKERS ‐ HOURLY DIFF" wor_po/policy_hours‐wor_bl/baseline_hours "RESTAURANTS AND GROCERIES" app_revenue<‐(vol_po‐vol_bl)[2]*(1‐restaurant_fees) nonapp_revenue<‐ ‐1*(con_po$total‐con_bl$total)*(1‐food_at_home_share) profit_gain<‐ nonapp_revenue*(restaurant_margin_nonapp‐restaurant_margin_app) grocery_revenue_gain<‐ ‐1*(con_po$total‐con_bl$total)*food_at_home_share rg_diff<‐data.frame( rest_rev_total=app_revenue+nonapp_revenue, rest_rev_app=app_revenue, FILED: NEW YORK COUNTY CLERK 07/06/2023 10:16 AM INDEX NO. 155943/2023 NYSCEF DOC. NO. 34 RECEIVED NYSCEF: 07/06/2023 rest_rev_nonapp=nonapp_revenue, rest_profit=profit_gain, groc_rev_total=grocery_revenue_gain ) %>% print()