Data 604 - Discussion 3

oats = c(1.05,1.29,10)
peas = c(3.17,3.76,8)
beans = c(1.99,2.23,14)
barley = c(.95,1.65,11)

#Uniform distribution discrete random variable
uddrv = function(a,b){
  return(floor(a+(b+1-a)*runif(1,min=0,max=1)))
  
}

#Lets create a spreadsheet for each product, then combine them
profits = function(item,days){
  spreadsheet = data.frame(matrix(vector(), days, 5,
                dimnames=list(c(), c("New day inventory","cost", "h", 'revenue', "profit"))),
                stringsAsFactors=F)
  
  spreadsheet[1,] = c(0,item[1]*item[3],0,0,-item[1]*item[3])
  
  
  
  for(i in 2:nrow(spreadsheet)) {
    
    previousRow = spreadsheet[i-1,]
    row = spreadsheet[i,]
    
    newDayInventory = item[3]-previousRow[3]
    costToStock = (item[3]-newDayInventory)*item[1]
    itemsSold = uddrv(0,item[3])
    sales = itemsSold*item[2]
    profit = sales-costToStock
    
    newRow = c(newDayInventory,costToStock,itemsSold,sales,profit)
    spreadsheet[i,] =newRow
}
  return(spreadsheet)
}



# Create some spreadsheets per item; along with their totals
oats_summer = profits(oats,90)
oats_summer_totals = colSums(oats_summer)

peas_summer = profits(peas,90)
peas_summer_totals = colSums(peas_summer)

beans_summer = profits(beans,90)
beans_summer_totals = colSums(beans_summer)

barley_summer = profits(barley,90)
barley_summer_totals = colSums(barley_summer)

walthers_food_emporium = barley_summer+oats_summer+peas_summer+beans_summer
walthers_totals =  colSums(walthers_food_emporium)

#combine em
Walthers_chart = rbind(walthers_totals,oats_summer_totals,peas_summer_totals,beans_summer_totals,barley_summer_totals)

kable(Walthers_chart)

peas_summer[nrow(peas_summer)+1,] = peas_summer_totals
kable(peas_summer)