above.select <- function(tmp.csv){

tmp.csv <- list.files('testtd/')[59]

tmp.path <- paste0('testtd/', tmp.csv);#tmp.path tmp.gp <- read.csv(tmp.path) above_threshold <- any(abs(tail(tmp.gp$td,4))>0.3) if (above_threshold) { tmp.zx <- tmp.gp %>% tail(20) %>% filter(abs(td)>0.3) %>% select(meanzx) above_zx_threshold <- nrow(tmp.zx)>=1 if(above_zx_threshold){ tmp.above <- (tail(tmp.zx$meanzx,1)-mean(tmp.zx$meanzx))*100/mean(tmp.zx$meanzx) tmp.code <- substr(tmp.csv, start = 13,stop = 18) tmp.dataf <- data.frame(code=tmp.code,above=tmp.above) return(tmp.dataf) } } return(NULL) }