adding R visualization script