Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
28 lines (20 sloc) 706 Bytes
#
# sales-cycle.R, 22 May 20
# Data from:
# The Cost of High-Powered Incentives: {Employee} Gaming in Enterprise Software Sales
# Ian Larkin
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG incentives sales_closed
source("ESEUR_config.r")
pal_col=rainbow(2)
sales=read.csv(paste0(ESEUR_dir, "economics/sales-cycle.csv.xz"), as.is=TRUE)
plot(sales$week, 100*sales$volume/sum(sales$volume), type="b", col=pal_col[1],
yaxs="i",
ylim=c(0, 80),
xlab="Week", ylab="Sales (percentage)\n")
lines(sales$week, sales$discount, type="b", col=pal_col[2])
legend(x="topleft", legend=c("Sales", "Discount"), bty="n", fill=pal_col, cex=1.2)