Missions spatiales habitées
MannedSpaceMissionData fournit des informations historiques et actuelles concernant l'exploration spatiale humaine.

missions = MannedSpaceMissionData[];
Vous pouvez créer un EventSeries basé sur la date de lancement des missions avec des valeurs vectorielles stockant l'entité de la mission et la durée de chaque mission.

data = DeleteMissing[
MannedSpaceMissionData[
missions, {"LaunchDate", "Entity", "MissionDuration"}], 1, 2];

es = EventSeries[data[[All, {2, 3}]], {data[[All, 1]]}]

Le tracé TimelinePlot des horodotages montre la durée presque continue des missions spatiales habitées depuis 1961.

TimelinePlot[es["Dates"]]

Pour analyser les durées des missions, extrayez la deuxième composante de l'événement de la série originale et convertissez les valeurs en heures.

durations = UnitConvert[es["PathComponent", 2], "Hours"]

Les missions courtes sont les plus courantes.

Histogram[durations, Quantity[{0, 6000, 500}, "Hours"],
AxesLabel -> Automatic]


DateListPlot[{durations, line1, line2}, opts]

Calculez les statistiques descriptives des durées des missions. Notez que la moyenne et la médiane sont très éloignées l'une de l'autre, ce qui indique une distribution à longue queue.

stats = {Min, Max, Mean, Median};
convert :=
UnitConvert[N[#], MixedUnit[{"Months", "Days", "Hours", "Minutes"}]]
&

TableForm[Map[convert[#[durations]] &, stats],
TableHeadings -> {stats}]

Le temps total pendant lequel il y a eu un être humain dans l'espace.

UnitConvert[Total[durations],
MixedUnit[{"Years", "Months", "Days", "Hours", "Minutes",
"Seconds"}]]
