avec

my.net.wage <- function(x)
{
                # 금액 단위: 만원
rent <- 170     # 매장 건물 임대료
wage <- 180     # 아르바이트생 한 달 월급
trash <- 20     # 음식물 쓰레기 버리는 비용
utility <- 50   # 전기세+가스+물
avg.number.table <-  x #4      # 하루 평균 저녁 테이블 수
avg.sales.per.table <- 6.5   # 테이블 평균 매출액
advertisement <- 5 # 광고 금액 
#감가 상각비 (1).5억/240개월)  10년이 지나면 사라지는 돈
depre.exp <- 15000/ (10*24) 
cat("매월 감가상각비", depre.exp)
# 하루 평균 매출액
avg.sales.day <- avg.number.table*avg.sales.per.table
# 한달 매출액 (26일 기준)
avg.sales.month <-  26*avg.sales.day
# 한달 재료 원가 (총 매출액의 15% 수준으로 결정함)
avg.food.cost <- 0.15*avg.sales.month
# 한달 지출액
# 노후 복지 대비 연금 (월 300만원 직장인 기준 27만원)
old.age.welfare <- 27 

total.cost.month    <-rent+wage+trash+utility+advertisement+depre.exp+avg.food.cost+old.age.welfare

if (x>8) # 하루 9테이블 이상이면 알바 한명 더 고용
{
  total.cost.month<-total.cost.month+200 
}

net.income.month <-avg.sales.month-total.cost.month



cat("\n한달 매출액 예상: ", avg.sales.month)
cat("\n한 달 지출액 예상: ", total.cost.month)
cat("\n한 달 순수입 예상: ", net.income.month)
}

만약 하루에 3 테이블이 온다면?

my.net.wage(3)

## 매월 감가상각비 62.5
## 한달 매출액 예상:  507
## 한 달 지출액 예상:  590.55
## 한 달 순수입 예상:  -83.55

만약 하루에 4 테이블이 온다면?

my.net.wage(4)

## 매월 감가상각비 62.5
## 한달 매출액 예상:  676
## 한 달 지출액 예상:  615.9
## 한 달 순수입 예상:  60.1

만약 하루에 5 테이블이 온다면?

my.net.wage(5)

## 매월 감가상각비 62.5
## 한달 매출액 예상:  845
## 한 달 지출액 예상:  641.25
## 한 달 순수입 예상:  203.75

만약 하루에 6 테이블이 온다면?

my.net.wage(6)

## 매월 감가상각비 62.5
## 한달 매출액 예상:  1014
## 한 달 지출액 예상:  666.6
## 한 달 순수입 예상:  347.4

만약 하루에 7 테이블이 온다면?

my.net.wage(7)

## 매월 감가상각비 62.5
## 한달 매출액 예상:  1183
## 한 달 지출액 예상:  691.95
## 한 달 순수입 예상:  491.05

만약 하루에 8 테이블이 온다면?

my.net.wage(8)

## 매월 감가상각비 62.5
## 한달 매출액 예상:  1352
## 한 달 지출액 예상:  717.3
## 한 달 순수입 예상:  634.7

만약 하루에 9 테이블이 온다면?

my.net.wage(9) -200 #알바 한 명 더 고용해야함

## 매월 감가상각비 62.5
## 한달 매출액 예상:  1521
## 한 달 지출액 예상:  942.65
## 한 달 순수입 예상:  578.35

## numeric(0)

만약 하루에 10 테이블이 온다면?

my.net.wage(10)-200 #알바 한 명 더 고용해야함

## 매월 감가상각비 62.5
## 한달 매출액 예상:  1690
## 한 달 지출액 예상:  968
## 한 달 순수입 예상:  722

## numeric(0)