If you have not downloaded the files, you can use this:

wagner <- read.csv("https://adv-stat.kursy.bartoszmackiewicz.pl/c/6/0/wagner1988.csv")