link R demo post to its code