The 2012 survey also had a “date of the Singularity” question, but Yvain didn’t report on the results of that question, so you’ll have to look at the raw data for that.
R> lw <- read.csv("2012.csv") R> lw <- as.integer(as.character(lw$Singularity)) R> summary(lw[lw > 2011 & lw < 5000]) Min. 1st Qu. Median Mean 3rd Qu. Max. NA’s 2010 2060 2080 2140 2150 4000 236
Had to filter because of idiots putting in values like 2147483647 or 30 or 1800.
Had to filter because of idiots putting in values like 2147483647 or 30 or 1800.