For my own reference, to first order Pirga is low with a constant offset of 0.97mb, though lsfit() finds that this is really a larger offset combined with a 1% lower slope:
lsfit(dat("P"),dat("Pirga"))$coef
Intercept P
7.9621428 0.9911725
For my own reference, to first order Pirga is low with a constant offset of 0.97mb, though lsfit() finds that this is really a larger offset combined with a 1% lower slope:
lsfit(dat("P"),dat("Pirga"))$coef
Intercept P
7.9621428 0.9911725