Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
35 lines (24 sloc) 911 Bytes
#
# pinchfp.R, 11 Jun 20
# Data from:
# 'AppStore Secrets' ({What} We've Learned from 30,000,000 Downloads)
# Azeem Ansar
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG App_usage AppStore_downloads
source("ESEUR_config.r")
pal_col=rainbow(2)
app=read.csv(paste0(ESEUR_dir, "economics/pinchfp.csv.xz"), as.is=TRUE)
free=subset(app, engagement=="free")
paid=subset(app, engagement=="paid")
plot(paid$days, paid$time_spent, col=pal_col[1],
xaxs="i",
xlim=c(0, max(app$days)), ylim=c(3.5, 9),
xlab="Days since first use", ylab="Time spent (minutes)")
points(free$days, free$time_spent, col=pal_col[2])
lines(loess.smooth(paid$days, paid$time_spent, span=0.5), col=pal_col[1])
lines(loess.smooth(free$days, free$time_spent, span=0.5), col=pal_col[2])
legend(x="topright", legend=c("Paid", "Free"), bty="n", fill=pal_col, cex=1.2)