Detailed description |
Since we are interested in HRV, I suggest to include some variation information at a low level.
I placed pkg/R/BuildNIHR2.R in the SVN repository. I suggest to imbed it in BuildNIHR.R.
Given the setting of the tutorial, an example is a cheap Poincare plot:
hrv.data = BuildNIDHR(hrv.data)
plot(hrv.data$Beat$avRR, hrv.data$Beat$dRR,
col = rgb(red=0, blue=0, green=0, alpha=0.1),
# xlab=paste("avRR=",expression((RR[n]+RR[n-1])/2)," [ms]"),
# ylab=paste("dRR=", expression(RR[n]-RR[n-1])," [ms]")
xlab= expression((RR[n]+RR[n-1])/2),
ylab= expression(RR[n]-RR[n-1]),
main="RR difference by RR average [ms]"
)
gs.
|
|