Create Bundesbank Example 4.R