SmartHealthSimulator

library(healthsimulation)

 sim <- SmartHealthSimulator$new(days = 180, seed = 42)
 head(sim$data)

##    timestamp hr_mean steps skin_temp ambient_temp activity_label mood_score
## 1 2025-01-01    83.7  7454      36.2         22.3       exercise          3
## 2 2025-01-02    64.4  5248      36.1         22.0           walk          2
## 3 2025-01-03    73.6  8106      36.3         24.6       exercise          4
## 4 2025-01-04    76.3  7884      36.4         27.8       exercise          4
## 5 2025-01-05    74.0  6162      36.4         24.5           walk          1
## 6 2025-01-06    68.9  2991      36.4         27.1           rest          1
##                  mood_note air_quality_index sleep_quality
## 1    Anxious and stressed.                83     128.53664
## 2            Slept poorly.                44     125.98141
## 3 Calm and productive day.               113     123.81810
## 4        Felt great today.                79     138.31390
## 5              Very tired.                56     122.27043
## 6            Slept poorly.                81      87.05611

 sim$plot_time_series()

 sim$plot_mood_sleep()

## `geom_smooth()` using formula = 'y ~ x'

 sim$plot_activity_distribution()

 sim$plot_mood_wordcloud()

## Found litedown! Enabling r-universe template