-
Notifications
You must be signed in to change notification settings - Fork 4
Expand file tree
/
Copy pathexample.R
More file actions
58 lines (43 loc) · 2.57 KB
/
Copy pathexample.R
File metadata and controls
58 lines (43 loc) · 2.57 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
# install.packages("devtools")
# install.packages("dplyr")
# install.pacakges("lubridate")
# install.packages("devtools")
# install.package("readr)
# library(devtools)
# install_github("RobinL/costmodelr")
# detach("package:costmodelr", unload = TRUE)
# library(costmodelr)
library(dplyr)
library(lubridate)
library(readr)
library(magrittr)
library(formattable)
# Read in assumptions from files
key_dates <- readr::read_csv("/Users/robinlinacre/Documents/r_projects/final_cost_model/assumptions/key_dates.csv", col_types=readr::cols())
recurring_costs = readr::read_csv( "/Users/robinlinacre/Documents/r_projects/final_cost_model/assumptions/recurring_cost.csv", col_types=readr::cols())
staff_utilisation <- readr::read_csv( "/Users/robinlinacre/Documents/r_projects/final_cost_model/assumptions/staff_utilisation_forecast.csv", col_types=readr::cols())
rate_card <- readr::read_csv( "/Users/robinlinacre/Documents/r_projects/final_cost_model/assumptions/rate_card_forecast.csv", col_types=readr::cols())
user_variable_costs <- readr::read_csv( "/Users/robinlinacre/Documents/r_projects/final_cost_model/assumptions/user_variable_costs.csv", col_types=readr::cols())
users <- readr::read_csv( "/Users/robinlinacre/Documents/r_projects/final_cost_model/assumptions/users.csv", col_types=readr::cols())
oneoff <- readr::read_csv( "/Users/robinlinacre/Documents/r_projects/final_cost_model/assumptions/oneoff_costs_actual.csv", col_types=readr::cols())
# Add each set of assumptions to model
cost_model <- create_cost_model(key_dates) %>%
add_oneoff_costs(oneoff) %>%
add_oneoff_costs(oneoff) %>%
add_recurring_cost(recurring_costs) %>%
add_recurring_cost(recurring_costs) %>%
add_user_variable_costs(users, user_variable_costs) %>%
add_user_variable_costs(users, user_variable_costs) %>%
add_staff_utilisation(staff_utilisation, rate_card) %>%
add_staff_utilisation(staff_utilisation, rate_card)
# Run model
cost_model <- run_cost_model(cost_model)
shiny_vis(cost_model)
shiny_bubble(cost_model)
cost_model$cost_dataframe
rmarkdown::render("vignettes/assumption_types.Rmd", output_format="md_document", output_file = "../README.md", output_options=list("variant" = "markdown_github"))
x <- readLines("readme.md")
y <- gsub( "../README_files/f", "../master/README_files/f", x )
y <- c("[](https://travis-ci.org/RobinL/costmodelr)",y)
y <- c("[](https://codecov.io/github/RobinL/costmodelr?branch=master)",y)
cat(y, file="readme.md", sep="\n")