Túneles
TunnelData proporciona información acerca de túneles, tales como longitud y ubicación.

tunnels = TunnelData[];

Length[tunnels]

Para cada túnel, encuentre su longitud y ubicación dada por país o países.

rawData = TunnelData[tunnels, {"Countries", "Length"}];
Limpie los datos para remover valores faltantes.

data = DeleteMissing[rawData, 1, 2];
Convierta los datos de longitud a millas.

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"]

Los datos pueden ser descritos por una mezcla de distribuciones de cola larga.

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

edist = EstimatedDistribution[lengths, dist]

Pruebe lo bueno del ajuste contra distribuciones de mezcla de la familia paramétrica.

DistributionFitTest[lengths, dist, "TestDataTable"]

Represente gráficamente el PDF de la distribución ajustada contra el histograma.

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

Visualice las ubicaciones de los túneles.
Agrupe por país.

res = GroupBy[data, First, Flatten[Take[#, All, -1]] &];
Algunos túneles están ubicados en más de un país.

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

Distribuya los túneles compartidos y selecciones los países que tiene al menos 10 túneles. Represente gráficamente la table de distribución de longitud.

El millaje total de los túneles por país con los túneles compartidos está incluido en la longitud total para cada país.
