Code pour code R économétrie

Etudiants: OULD AMROUCHE

Belkacem Yacine

PAULA

Sandrina

> adresse <- "http://lab.chcariou.fr/econometrie/examen_2018_1.csv"

> c<-read.table(adresse,sep = ";", header = TRUE)

> summary(c)

titre entrees salles media allocine

'71 : 1 Min. : 25036 Min. : 1.0 Min. : 0.00 Min. :0.0000

(S)ex List : 1 1st Qu.: 76134 1st Qu.: 84.0 1st Qu.:13.00 1st Qu.:0.0000

[REC] 4 : 1 Median : 216762 Median : 194.0 Median :18.00 Median :0.0000

[REC]3 Génesis : 1 Mean : 583848 Mean : 238.2 Mean :17.65 Mean :0.3964

10 jours en or : 1 3rd Qu.: 577418 3rd Qu.: 330.0 3rd Qu.:22.00 3rd Qu.:1.0000

10, 11, 12... Pougne le hérisson: 1 Max. :19490688 Max. :1051.0 Max. :40.00 Max. :1.0000

(Other) :1659

autres_films saison docu anim france etats_unis

Min. : 1.000 Min. :-0.466372 Min. :0.00000 Min. :0.00000 Min. :0.0000 Min. :0.0000

1st Qu.: 6.000 1st Qu.:-0.159709 1st Qu.:0.00000 1st Qu.:0.00000 1st Qu.:0.0000 1st Qu.:0.0000

Median : 7.000 Median : 0.008743 Median :0.00000 Median :0.00000 Median :0.0000 Median :1.0000

Mean : 7.379 Mean : 0.009003 Mean :0.04444 Mean :0.08468 Mean :0.3994 Mean :0.5922

3rd Qu.: 9.000 3rd Qu.: 0.163254 3rd Qu.:0.00000 3rd Qu.:0.00000 3rd Qu.:1.0000 3rd Qu.:1.0000

Max. :12.000 Max. : 0.471798 Max. :1.00000 Max. :1.00000 Max. :1.0000 Max. :1.0000

cas_01 cas_02

Min. :0.00000 Min. :0.000000

1st Qu.:0.00000 1st Qu.:0.000000

Median :0.00000 Median :0.000000

Mean :0.01021 Mean :0.001201

3rd Qu.:0.00000 3rd Qu.:0.000000

Max. :1.00000 Max. :1.000000

> hist(c$entrees)

> hist(c$salles)

> hist(c$media)

> hist(c$allocine)

> hist(c$saison)

> hist(c$docu)

> hist(c$anim)

> hist(c$france)

> hist(c$etats_unis)

> hist(c$cas_01)

> hist(c$cas_02)

> hist(c$autres_films)

> hist(c$cas_01)

> hist(c$cas_02)

>

> cor(c$entrees, c$salles)

[1] 0.7023469

> cor(c$entrees, c$media)

[1] 0.1708233

> cor(c$entrees, c$allocine)

[1] 0.01483201

> cor(c$entrees, c$autres_films)

[1] -0.1079013

> cor(c$entrees, c$saison)

[1] 0.05419479

> cor(c$entrees, c$docu)

[1] -0.08059363

> cor(c$entrees, c$anim)

[1] 0.1372261

> cor(c$entrees, c$france)

[1] -0.02659093

> cor(c$entrees, c$etats_unis)

[1] 0.1452755

> cor(c$entrees, c$cas_01)

[1] -0.04271641

> cor(c$entrees, c$cas_02)

[1] 0.4958191

>

> plot(c$entrees, c$salles)

> plot(c$entrees, c$media)

> plot(log(c$entrees), log(c$media))

> plot(c$entrees, c$media)

> plot(log(c$entrees), log(c$salles))

> plot(c$entrees, c$salles)

> plot(log(c$entrees), log(c$salles))

> plot(log(c$entrees), log(c$media))

> plot(log(c$entrees), log(c$salles))

> plot(log(c$entrees), log(c$media))

> plot(log(c$entrees), log(c$allocine))

> plot(c$entrees, c$allocine)

> plot(log(c$entrees), log(c$allocine))

> plot(log(c$entrees), log(c$autres_films))

> plot(log(c$entrees), log(c$saison))

> plot(log(c$entrees), log(c$docu))

> plot(log(c$entrees), log(c$anim))

>

...