#my qucik r analysis on  open data

frame1 <- read.csv(file="/Users/Documents/f1",header=TRUE,sep=",");
frame2 <- read.csv(file="/Users/Documents/f2",header=TRUE,sep=",");
frame3 <- read.csv(file="/Users/Documents/f3",header=TRUE,sep=",");
frame4 <- read.csv(file="/Users/Documents/f4",header=TRUE,sep=",");
finalFrame <- merge(frame1,frame2);
finalFrame <- merge(finalFrame,frame3);
finalFrame <- merge(finalFrame,frame4);
summary(finalFrame)


                  Regione   per.vendere.merci.servizi per.file.sharing per.ricerca.lavoro. pc.1.volta.a.settimana
 Abruzzo              : 1   Min.   : 4.800            Min.   :32.40    Min.   :12.40       Min.   :35.00
 Basilicata           : 1   1st Qu.: 6.600            1st Qu.:34.60    1st Qu.:13.45       1st Qu.:41.25
 Calabria             : 1   Median : 8.100            Median :36.30    Median :16.50       Median :43.70
 Campania             : 1   Mean   : 8.104            Mean   :36.50    Mean   :16.82       Mean   :43.30
 Emilia-Romagna       : 1   3rd Qu.: 9.050            3rd Qu.:37.90    3rd Qu.:19.30       3rd Qu.:46.20
 Friuli-Venezia Giulia: 1   Max.   :11.200            Max.   :41.40    Max.   :22.90       Max.   :49.40
 (Other)              :17
 utilizzatori.pc.a.casa. per.informazioni per.download.moduli per.invio.moduli. con.banda.stretta con.banda.larga
 Min.   :84.90           Min.   :31.60    Min.   :10.80       Min.   :25.20     Min.   : 8.80     Min.   :48.30
 1st Qu.:87.85           1st Qu.:35.75    1st Qu.:13.10       1st Qu.:27.55     1st Qu.:13.00     1st Qu.:67.35
 Median :88.50           Median :39.00    Median :13.90       Median :29.00     Median :14.40     Median :73.00
 Mean   :88.50           Mean   :38.47    Mean   :14.12       Mean   :29.23     Mean   :14.79     Mean   :70.45
 3rd Qu.:89.10           3rd Qu.:40.85    3rd Qu.:14.65       3rd Qu.:30.45     3rd Qu.:15.80     3rd Qu.:75.15
 Max.   :92.60           Max.   :45.60    Max.   :18.80       Max.   :36.40     Max.   :26.70     Max.   :80.90

 con.collegamento.mobile.
 Min.   : 2.100
 1st Qu.: 4.850
 Median : 6.100
 Mean   : 6.491
 3rd Qu.: 8.600
 Max.   :13.300

library(psych)
m2<-mydata[,setdiff(names(finalFrame), c("Regione"))]
multi.hist(m2)
pairs.panels(finalFrame)