# Instalar pacotes se necessário
#install.packages("lactater")
#install.packages("ggplot2")
#install.packages("dplyr")
#install.packages("tibble")
# Carregar bibliotecas
library(lactater)
library(ggplot2)
library(dplyr)
library(tibble)
# Criar os dados 17_MArço_2025
# dados <- tibble::tribble(
# ~step, ~length, ~intensity, ~lactate, ~heart_rate,
# 0L, 0L, 0, 3, 90L,
# 1L, 5L, 10, 3, 127L,
# 2L, 5L, 10.5, 2.4, 132L,
# 3L, 5L, 11, 2.4, 139L,
# 4L, 5L, 11.5, 3.6, 147L,
# 5L, 5L, 12, 4.6, 149L,
# 6L, 5L, 12.5, 5, 154L,
# 7L, 5L, 13, 6.5, 155L,
# 8L, 5L, 13.5, 9, 160L
# )
# Criar os dados 17_MArço_2025 ### POWER AS HEART RATE ####
dados <- tibble::tribble(
~step, ~length, ~intensity, ~lactate, ~heart_rate,
0L, 0L, 0, 3, 90L,
1L, 5L, 10, 3, 193L,
2L, 5L, 10.5, 2.4, 212L,
3L, 5L, 11, 2.4, 223L,
4L, 5L, 11.5, 3.6, 243L,
5L, 5L, 12, 4.6, 250L,
6L, 5L, 12.5, 5, 262L,
7L, 5L, 13, 6.5, 270L,
8L, 5L, 13.5, 9, 280L
)
#dados 14_março_2025
# dados <- tibble::tribble(
# ~step, ~length, ~intensity, ~lactate, ~heart_rate,
# 0L, 15L, 9.0, 8.4, 122L,
# 1L, 20L, 9.7, 3.9, 129L,
# 2L, 25L, 10.3, 2.4, 133L,
# 3L, 30L, 11.0, 2.7, 141L,
# 4L, 35L, 11.6, 3.0, 146L,
# 5L, 40L, 12.3, 5.2, 150L,
# 6L, 45L, 12.9, 5.0, 153L,
# 7L, 50L, 13.5, 11.9, 156L
# )
# Calcular limiares e armazenar o resultado
resultado <- lactate_threshold(
.data = dados,
intensity_column = 'intensity',
lactate_column = 'lactate',
heart_rate_column = 'heart_rate',
method = c('Log-log', 'OBLA', 'Bsln+', 'Dmax', 'LTP', 'LTratio'),
fit = '3rd degree polynomial',
include_baseline = FALSE,
sport = 'running',
loglog_restrainer = 0.75,
plot = TRUE
)
data_lactate_curve <- lactate_curve(
.data = dados,
intensity_column = "intensity",
lactate_column = "lactate",
heart_rate_column = "heart_rate",
fit = "3rd degree polynomial",
include_baseline = FALSE,
sport = "running"
)
#run_data_input(width = 1200, height = 900)
# Garantir que o gráfico aparece
print(resultado$plot)
#print(resultado)
#obter os dados para fazer o grafico manualmente
data_lactate_curve <- lactate_curve(
.data = dados,
intensity_column = "intensity",
lactate_column = "lactate",
heart_rate_column = "heart_rate",
fit = "3rd degree polynomial",
include_baseline = FALSE,
sport = "running"
)
#grafico manual com os data points
ggplot() +
geom_path(data = data_lactate_curve$lactate_curve, aes(intensity, lactate)) +
geom_point(data = data_lactate_curve$data, aes(intensity, lactate), size = 4) +
theme_light()
ggplot() +
geom_path(data = data_lactate_curve$heart_rate_response, aes(intensity, heart_rate)) +
geom_point(data = data_lactate_curve$data, aes(intensity, heart_rate), size = 4) +
theme_light()
ggplot() +
geom_path(data = data_lactate_curve$lactate_curve, aes(intensity, lactate)) +
geom_point(data = data_lactate_curve$data, aes(intensity, lactate), size = 4) +
geom_point(data = resultado, aes(intensity, lactate, color = method), size = 3) +
theme_light()
