if (FALSE) {
data(HOWAREYOU)
plot.ts(HOWAREYOU)
cgtHOWAREYOU <- cgt(HOWAREYOU,70,0.01,100)
clHOWAREYOU <- crc(Mod(cgtHOWAREYOU),nbclimb=1000)
cfHOWAREYOU <- cfamily(clHOWAREYOU,ptile=0.001)
image(cfHOWAREYOU$ordered > 0)
}
Run the code above in your browser using DataLab