Studeny 2011 evenness with R code