Tunnels
TunnelData fournit des informations sur les tunnels, tels que la longueur et le lieu.

tunnels = TunnelData[];

Length[tunnels]

Pour chaque tunnel, trouvez sa longueur et sa localisation donnés par le ou les pays.

rawData = TunnelData[tunnels, {"Countries", "Length"}];
Nettoyez les données pour éliminer les valeurs manquantes.

data = DeleteMissing[rawData, 1, 2];
Convertissez les données de longueur en miles.

data[[All, 2]] = UnitConvert[N[data[[All, 2]]], "Miles"];

lengths = data[[All, 2]];

MinMax[lengths]


h = Histogram[lengths, {1, 12, .5}, PDF, FrameLabel -> Automatic,
PlotTheme -> "Detailed"]

Les données peuvent être décrites par un mélange de distributions à longue queue.

dist = MixtureDistribution[{w1,
w2}, {ParetoDistribution[a1, a2, a3, a4],
WeibullDistribution[b1, b2]}];

edist = EstimatedDistribution[lengths, dist]

Testez la qualité d'ajustement contre les distributions de mélange de famille paramétrique.

DistributionFitTest[lengths, dist, "TestDataTable"]

Tracez la densité de probabilité de la distribution ajustée contre l'histogramme.

Show[h, Plot[PDF[edist, Quantity[x, "Miles"]], {x, 1, 12},
PlotRange -> All] // Quiet]

Visualisez les locations des tunnels.
Groupez par pays.

res = GroupBy[data, First, Flatten[Take[#, All, -1]] &];
Certains tunnels sont situés dans plus d'un pays.

shared = Select[Keys[res], Length[#] > 1 &]

Distribuez les tunnels partagés et choisissez les pays qui ont au moins 10 tunnels. Tracez le tableau de distribution de longueur.

Le kilométrage total du tunnel par pays avec les tunnels partagés inclus en longueur totale pour chaque pays.
