## Create a Return Series with a Split -
data <- runif(12, -1, 1)
data[6] <- 20
x <- timeSeries(data, timeCalendar(), units="RUNIF")
x
## Search for the Split:
splits(x, sd=3, complement=TRUE)
splits(x, sd=3, complement=FALSE)
Run the code above in your browser using DataLab