{
relevant { isRide && Data contains "P"; }
finalise {
xx <- bests(date);
yy <- bests(POWER,300);
z <- nonzero(yy);
}
x { xx[z]; }
y { yy[z]; }
Better use a filter?