if(FALSE){
library(epitweetr)
#Running the modifies version of the ears algorithm for a particular data series
ts <- c(150, 130, 122, 160, 155, 128, 144, 125, 300, 319, 289, 277, 500)
show(ears_t_reweighted(ts))
}
Run the code above in your browser using DataLab