my R-Tools for my PHD thesis "WMVG"