Ainsi sur une base de 42 échantillons de ma tension artérielle relevés entre le dernier trimestre 2019 et le premier trimestre 2020, on obtient les résultats ci-dessous :
> round(mean(tar$Systolic))
[1] 127
> round(mean(tar$Diastolic))
[1] 87
> round(mean(tar$FC))
[1] 69
et le graphique dit "à moustaches" ci-dessous :
J'ai aussi effectué une analyse des données de course de 2014 à 2020. Après un export de Garmin Connect en fichier.csv, j'ai pu extraire les principaux éléments. Les échantillons sont mensuels.
Donc en moyenne sur les 6 dernières années, j'ai parcouru 169 km en moyenne par mois, 15h30 par mois, en fréquence cardiaque moyenne de 146 et en fréquence maximale de 180.
On le savait déjà, mais on remarque que l'analyse de corrélation (Analyse en Composante Principale) permet de confirmer que la VO2MAX est corrélée à la distance parcourue, elle même fortement corrélée au temps d'activité :
Il est aussi possible d'utiliser la librairie quantmod qui permet de récupérer les cours de bourse et d'afficher des graphiques avec les chandeliers japonais :
J'ai pu acquérir cette compétence sur le langage R, ainsi que les bases de la statistique grace au cours en ligne de type MOOC FUN.
Le code pour la tension artérielle:
