# Set libPaths.
.libPaths("/Users/im/.exploratory/R/4.4")

# Load required packages.
library(janitor)
library(lubridate)
library(hms)
library(tidyr)
library(stringr)
library(readr)
library(cpp11)
library(forcats)
library(RcppRoll)
library(dplyr)
library(tibble)
library(bit64)
library(zipangu)
library(exploratory)
library(crayon)

# Steps to produce the output
exploratory::getGoogleSheet(title = 'Data', sheetName = 'raw data', firstRowAsHeader = TRUE, skipNRows = , tzone = 'Asia/Tokyo', treatTheseAsNA = c(), commentChar = '', tokenFileId = '', guessDataType = TRUE, id = '1xRhvw3dJdPrxkpW4zjXL7xJsuLNXVJefK5FoTNQfNDI') %>%
  readr::type_convert(locale=locale(tz = "Asia/Tokyo")) %>%
  exploratory::clean_data_frame() %>%
  mutate(日付 = as_date(日付)) %>%
  mutate(製造原価 = floor(製造原価, digits = 0)) %>%
  select(-製造原価, -販売管理費) %>%
  rename(`マーケティングコスト` = 新規顧客の獲得コスト) %>%
  mutate(日付 = 日付 + years(3)) %>%
  mutate(マーケティングコスト = マーケティングコスト/100) %>%
  mutate(マーケティングコスト = floor(マーケティングコスト, digits = 0))