Feature r script to generate weight ex