Update Bundesbank Example 1.R