Update ordermar 130312.R

some of the functions used are from package R/e1071