Если что то измеряешь, то можешь и управлять
Зимой купил весы сяоми с биоимпедансным измерителем состава тела. Основная фича весов, ну кроме экстра низкой цены, они пишут в телефон результаты без вмешательства со стороны взвешивающ(егося|ихся) :).
Поскольку Сяоми починила выгрузку данных аккаунта mii-fit, я выгрузил таки свои кровные данные:
> str(read.csv2("BODY_1566121500482.csv"))
'data.frame': 173 obs. of 11 variables:
$ timestamp : int 1550943581 1550943616 1550943618 1550958920 1550994161 1550994800 1551069840 1551101729 1551101982 1551169373 ...
$ weight : num 91.8 91.8 91.8 89.9 89.1 89.1 89.1 89.7 89.3 88.6 ...
$ height : int 182 182 182 184 184 184 184 184 184 184 ...
$ bmi : num 27.7 27.7 27.7 26.5 26.3 26.3 26.3 26.4 26.3 26.1 ...
$ fatRate : num 29.2 29.2 29.2 27.8 27.6 27.6 27.7 27.4 27.2 27.4 ...
$ bodyWaterRate: num 50.5 50.5 50.5 49.4 49.6 49.6 49.5 49.7 49.8 49.7 ...
$ boneMass : num 3.3 3.3 3.3 3.3 3.2 3.2 3.2 3.3 3.3 3.2 ...
$ metabolism : int 1657 1657 1657 1627 1615 1615 1615 1624 1618 1607 ...
$ muscleRate : num 61.6 61.6 61.6 61.5 61.1 61.1 61.1 61.7 61.6 60.9 ...
$ visceralFat : int 15 15 15 14 14 14 14 14 14 14 ...
$ impedance : int 457 457 457 479 499 499 504 437 436 501 ...
Дату конвертим как обычно
my_weight$timestamp <- as.POSIXct(my_weight$timestamp, origin = "1970-01-01")
Наблюдая за своим графиком веса скинул 11 кило жира!
Процент жира
Абсолютная мышечная масса.
(В мае купил пару пакетов ультрафильтрата сыворотного белка, пил в обед как последний прием пищи, отсюда и излом на графике)
Поскольку Сяоми починила выгрузку данных аккаунта mii-fit, я выгрузил таки свои кровные данные:
> str(read.csv2("BODY_1566121500482.csv"))
'data.frame': 173 obs. of 11 variables:
$ timestamp : int 1550943581 1550943616 1550943618 1550958920 1550994161 1550994800 1551069840 1551101729 1551101982 1551169373 ...
$ weight : num 91.8 91.8 91.8 89.9 89.1 89.1 89.1 89.7 89.3 88.6 ...
$ height : int 182 182 182 184 184 184 184 184 184 184 ...
$ bmi : num 27.7 27.7 27.7 26.5 26.3 26.3 26.3 26.4 26.3 26.1 ...
$ fatRate : num 29.2 29.2 29.2 27.8 27.6 27.6 27.7 27.4 27.2 27.4 ...
$ bodyWaterRate: num 50.5 50.5 50.5 49.4 49.6 49.6 49.5 49.7 49.8 49.7 ...
$ boneMass : num 3.3 3.3 3.3 3.3 3.2 3.2 3.2 3.3 3.3 3.2 ...
$ metabolism : int 1657 1657 1657 1627 1615 1615 1615 1624 1618 1607 ...
$ muscleRate : num 61.6 61.6 61.6 61.5 61.1 61.1 61.1 61.7 61.6 60.9 ...
$ visceralFat : int 15 15 15 14 14 14 14 14 14 14 ...
$ impedance : int 457 457 457 479 499 499 504 437 436 501 ...
Дату конвертим как обычно
my_weight$timestamp <- as.POSIXct(my_weight$timestamp, origin = "1970-01-01")
Наблюдая за своим графиком веса скинул 11 кило жира!
Процент жира
Абсолютная мышечная масса.
(В мае купил пару пакетов ультрафильтрата сыворотного белка, пил в обед как последний прием пищи, отсюда и излом на графике)