y<-vector(mode="numeric",length=0 )
for (i in 3:nrow(data){
if(data$diff[i-2]<0&&data$diff[i-1]>0&&data$diff<0&&data$mean<data$mean[i-2]){
y<-0
}else{
y<-0
}
}
y<-vector(mode="numeric",length=0 )
for (i in 3:nrow(data){
if(data$diff[i-2]<0&&data$diff[i-1]>0&&data$diff<0&&data$mean<data$mean[i-2]){
y<-0
}else{
y<-0
}
}