library(XLConnect)
wb <- loadWorkbook("~/Dropbox/StatAz/Esercizi/TabelleEserciziSvolti.xlsx") 

## Leggi la tabella dei dati (crea un oggetto data.frame)
Tab3.1 <- readWorksheet(wb, sheet = "Cap3", region="A3:B6",
                    header = TRUE)

## Differenze assolute
v.a.p <- diff(Tab3.1$p)
## Chiamando per nome la variabile la si mostra a console:
## equivalentemente,
v.a.p
print(v.a.p)

## Differenze relative
v.r.p <- diff(Tab3.1$p)/Tab3.1$p[-3]
v.r.p
## Arrotondamento a 2 decimali:
round(v.r.p, 2)

Tab3.3a <- readWorksheet(wb, sheet = "Cap3", region="A10:E15",
                         header = TRUE)

Tab3.3b <- readWorksheet(wb, sheet = "Cap3", region="A19:E24",
                         header = TRUE)

## Inizializza Tab3.4a che conterrą i rapp di composizione
Tab3.4a <- Tab3.3a
## idem
Tab3.4b <- Tab3.3b

## Riempi con i rapporti di composizione
Tab3.4a[,-1] <- Tab3.3a[,-1]/sum(Tab3.3a[-5,-c(1,5)])*100
Tab3.4b[,-1] <- Tab3.3b[,-1]/sum(Tab3.3b[-5,-c(1,5)])*100

## Rapporti di composizione per colonna:
Tab3.5riga <- Tab3.3a
Tab3.5colonna <- Tab3.3a
Tab3.5riga[,-1] <- Tab3.3b[,-1]/apply(Tab3.3b[-5,-c(1,5)], 1, sum)*100
Tab3.5colonna[,-1] <- Tab3.3b[,-1]/apply(Tab3.3b[-5,-c(1,5)], 2, sum)*100