```r
knitr::opts_chunk$set(echo = FALSE)
fd<-paste(getwd(),"figs2",sep="/")
flnms<-dir(fd,pattern= "Screen")
fls<-paste(fd,flnms,sep="/")
aa<-as.numeric(gsub("[^0-9\\.]", "", flnms))
fls<-fls[order(aa)]
```