Create Bundesbank Example 2.R