An implementation (in R) of a not so usual "deep learning" architecture using K-Means and SVM