--------------------------------------------------
Test
--------------------------------------------------
#
# '/cygdrive/c/Program Files/R/R-3.0.3/bin/R.exe' CMD BATCH data_stats.R > out.txt
'/cygdrive/c/Program Files/R/R-3.0.3/bin/R.exe' --slave --no-save << END_R
my_frame <- read.csv(file="test_data.csv",header=TRUE,sep=",");
for (i in c(rep(1:ncol(my_frame))))
    {
    if (min(my_frame[,i]) != max(my_frame[,i]))
        {
        cat(sprintf("%.0f,%f,%f,%s\n", i,
          min(my_frame[,i]), max(my_frame[,i]), names(my_frame)[i]))
        }
    }
END_R
--------------------------------------------------
test_data.csv
--------------------------------------------------
AAA,bbb,c,d,e
1,2.2,3,4.4,5
6,7.7,8,9.9,5
11,12.12,13,14.14,5
--------------------------------------------------