Create Bundesbank Example 1.R