data("G.counties.gdp")region_code_EUregion_codegdp1992gdp1994gdp1995gdp1996gdp1997gdp1998gdp1999gdp2000gdp2001gdp2002gdp2003gdp2004gdp2005gdp2006gdp2007gdp2008gdp2009gdp2010gdp2011gdp2012gdp2013gdp2014pop1992pop1994pop1995pop1996pop1997pop1998pop1999pop2000pop2001pop2002pop2003pop2004pop2005pop2006pop2007pop2008pop2009pop2010pop2011pop2012pop2013pop2014gdppc1992gdppc1994gdppc1995gdppc1996gdppc1997gdppc1998gdppc1999gdppc2000gdppc2001gdppc2002gdppc2003gdppc2004gdppc2005gdppc2006gdppc2007gdppc2008gdppc2009gdppc2010gdppc2011gdppc2012gdppc2013gdppc2014# 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