> library(CardioRVAR)

> # Data is a list with elements Time, RR, and SBP:

> Data <- ResampleData(Data, 4) # Interpolates data

> IBI <- DetrendWithCutoff(Data$RR) # Detrends IBI signal

> SBP <- DetrendWithCutoff(Data$SBP) # Detrends SBP signal

> New_Data <- cbind(SBP = SBP, RR = IBI)

> CheckStationarity(New_Data) # Checks stationarity of the data

[1] TRUE

> # Or alternatively:

> Check_stationarity <- CheckStationarity(New_Data, verbose = TRUE)

Time series are stationary