1.3. Plotting Episodic Information

Author

Kizen Sasaki

First version

2023 November 30

Modified

2023 December 03

Code

library(readr)
if (!require("RHRV")) {
  install.packages("RHRV")
  library(RHRV)
}
library(RHRV)

FileNo <- 65
FileName <- paste0("time_HR_", FileNo, ".csv")

data <- read.table(file.path("csv_xls", FileName), header = TRUE, sep = ",", 
                   colClasses = c("character", "numeric"))

hr <- data[,2]
rr <- 1/hr
rr = rr*60*1000

Code

hrv.data <- CreateHRVData()
hrv.data <- SetVerbose(hrv.data, TRUE)
hrv.data$Beat$RR = rr
hrv.data$Beat$niHR = hr
hrv.data$Beat$Time = cumsum(rr)/1000

Prepare Episode

---
title: "1.3. Plotting Episodic Information"
author: 
 - Kizen Sasaki
date: 2023-11-30
date-modified: today
date-format: 'YYYY MMMM DD'
language:
  title-block-published: First version
  titel-block-modified: This version
format: 
 html:
  html-math-method: katex
  code-tools: true
  code-fold: true
 pdf:
  geometry: 
   - top=30mm
   - left=30mm
 docx: default
---
```{r, message=FALSE}
library(readr)
if (!require("RHRV")) {
  install.packages("RHRV")
  library(RHRV)
}
library(RHRV)

FileNo <- 65
FileName <- paste0("time_HR_", FileNo, ".csv")

data <- read.table(file.path("csv_xls", FileName), header = TRUE, sep = ",", 
                   colClasses = c("character", "numeric"))

hr <- data[,2]
rr <- 1/hr
rr = rr*60*1000
```

```{r}
hrv.data <- CreateHRVData()
hrv.data <- SetVerbose(hrv.data, TRUE)
hrv.data$Beat$RR = rr
hrv.data$Beat$niHR = hr
hrv.data$Beat$Time = cumsum(rr)/1000
```

Prepare Episode
```{r}
#| echo: false
#| message: false
hrv.data <- SetVerbose(hrv.data, TRUE)
hrv.data <- AddEpisodes(hrv.data, InitTimes = c(80, 250, 750, 3000),
                        Tags = c("H", "L", "H", "R"), 
                        Durations = c(150, 450, 100, 400),
                        Values = c(0, 0, 0, 0))

hrv.data <- BuildNIHR(hrv.data)

# Plot all tags
PlotNIHR(hrv.data, Tags = c("H", "L", "R"))
```

```{r}
```