Perhaps try
dat[as.numeric(gsub(".*?\\.(\\d+)\\..*","\\1",names(dat)))<50]
CLICK HERE to find out more related problems solutions.
Perhaps try
dat[as.numeric(gsub(".*?\\.(\\d+)\\..*","\\1",names(dat)))<50]
CLICK HERE to find out more related problems solutions.