modified:   Rtools/R/lf.R