data("G.counties.gdp")
region_code_EU
region_code
gdp1992
gdp1994
gdp1995
gdp1996
gdp1997
gdp1998
gdp1999
gdp2000
gdp2001
gdp2002
gdp2003
gdp2004
gdp2005
gdp2006
gdp2007
gdp2008
gdp2009
gdp2010
gdp2011
gdp2012
gdp2013
gdp2014
pop1992
pop1994
pop1995
pop1996
pop1997
pop1998
pop1999
pop2000
pop2001
pop2002
pop2003
pop2004
pop2005
pop2006
pop2007
pop2008
pop2009
pop2010
pop2011
pop2012
pop2013
pop2014
gdppc1992
gdppc1994
gdppc1995
gdppc1996
gdppc1997
gdppc1998
gdppc1999
gdppc2000
gdppc2001
gdppc2002
gdppc2003
gdppc2004
gdppc2005
gdppc2006
gdppc2007
gdppc2008
gdppc2009
gdppc2010
gdppc2011
gdppc2012
gdppc2013
gdppc2014
# Regional disparities / sigma convergence in Germany
data(G.counties.gdp)
# GDP per capita for German counties (Landkreise)
cvs <- apply (G.counties.gdp[54:68], MARGIN = 2, FUN = cv)
# Calculating cv for the years 2000-2014
years <- 2000:2014
plot(years, cvs, "l", ylim=c(0.3,0.6), xlab = "year",
ylab = "CV of GDP per capita")
# Plot cv over time
Run the code above in your browser using DataLab