I ran the code:
data <- exchangeGBP[-1,] # drop first row data$Diff`GBP/EUR` <- diff(exchangeGBP$`GBP/EUR`) head(data)
Error code: