Change  vaaply to loop
Add data.frame non numeric variables handling