Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
34 lines (25 sloc) 1.13 KB
#
# capitalize_2016.R, 9 Sep 17
# Data from:
# Capitalization of Software Development Costs: {Accounting} Practices in the Software Industry, 2014 and 2015
# Charles W. Mulford and Sarika Misra
#
# Example from:
# Empirical Software Engineering using R
# Derek M. Jones
source("ESEUR_config.r")
# plot_layout(1, 1, default_width=10, default_height=10)
costs=read.csv(paste0(ESEUR_dir, "economics/capitalize_2016.csv.xz"), as.is=TRUE)
plot(costs$Revenue/1e3, costs$Total.Costs/1e3, log="xy", col=point_col,
xlab="Revenue ($million)", ylab="Software development costs ($million)\n")
# # Two obvious outliers
# clean=subset(costs, Total.Costs > 5e3 & !(Revenue <5e5 & Total.Costs > 5e5))
# plot(clean$Revenue/1e3, clean$Total.Costs/1e3, log="xy", col=point_col,
# xlab="Revenue ($million)", ylab="Software development costs ($million)\n")
# cost_mod=glm(Total.Costs ~ Revenue, data=clean)
# summary(cost_mod) # Model is basically the same!
# # cost_mod=glm(Total.Costs ~ Revenue+I(Revenue^2), data=costs)
# # cost_mod=glm(log(Total.Costs) ~ log(Revenue), data=costs)
# cost_mod=glm(Total.Costs ~ Revenue, data=costs)
# summary(cost_mod)
#