I estimated an error correction model:
FKM1 <- ecm(FKMDBIP1 , xeq = FKMDBausgaben1, xtr = FKMDBausgaben1, lags = 2, includeIntercept = T)