litvals.R

#
# litvals.R,  5 Apr 20
# Data from:
# The New C Standard: An Economic and Cultural Commentary
# Derek M. Jones
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG C_numeric-literal integer_literal

source("ESEUR_config.r")


par(mar=MAR_default+c(0.0, 0.7, 0, 0))
pal_col=rainbow(2)


int_lit=read.csv(paste0(ESEUR_dir, "sourcecode/intlitvals.csv.xz"), as.is=TRUE)
hex_lit=read.csv(paste0(ESEUR_dir, "sourcecode/hexlitvals.csv.xz"), as.is=TRUE)

plot(int_lit$value, int_lit$occurrences, log="xy", col=pal_col[1],
	xlab="Numeric value", ylab="Integer literals\n\n",
	xlim=c(1, 1024))

points(hex_lit$value, hex_lit$occurrences, col=pal_col[2])

legend(x="topright", legend=c("Decimal", "Hexadecimal"),
			bty="n", fill=pal_col, cex=1.2)