{
relevant {
Data contains "P";
}
finalise {
xx <- samples(SECS);
s <- samples(POWER);
yy <- sapply(s, { sum(head(s, i)) / i; });
}
x { xx; }
y { yy; }
}
I have a User Chart with formulas all like{
relevant {
Data contains "P";
}
finalise {
xx <- samples(SECS);
s <- samples(POWER);
yy <- sapply(s, { sum(head(s, i)) / i; });
{
relevant {
Data contains "P";
}
finalise {
xx <- samples(SECS);
s <- samples(POWER);
yy <- sapply(s, { sum(head(s, i)) / i; });
}
x { xx; }
y { yy; }
}
In the user data tab of the chart settings
Am i doing smething wrong?
Thanks for your replies 3600*Distance/secs worked, and was easy to follow, but the other formula to show the "current average power at any time of the ride is producing no result at allI am copying{
relevant {
Data contains "P";
}
finalise {
xx <- samples(SECS);
s <- samples(POWER);
yy <- sapply(s, { sum(head(s, i)) / i; });
}
x { xx; }
y { yy; }
}
In the user data tab of the chart settings
Am i doing smething wrong?
{
init {
xx<-c();
yy<-c();
count<-0;
}
relevant {
Data contains "P";
}
finalise {
# we just fetch samples at end
xx <- samples(SECS);
s <- samples(POWER);
yy <- cumsum(s)/xx;
}
x { xx; }
y { yy; }
}
--
_______________________________________________
Golden-Cheetah-Users mailing list
golden-che...@googlegroups.com
http://groups.google.com/group/golden-cheetah-users?hl=en
---
You received this message because you are subscribed to the Google Groups "golden-cheetah-users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to golden-cheetah-u...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/golden-cheetah-users/c2f5db95-d7d1-4553-80f2-0110c1268bcen%40googlegroups.com.
Just to add my assumption, I have assumed you are wanting a chart to show the data from an activity you have previously recorded, not an average to be displayed during a training session in the way Rouvy can display say average W/kg during a ride.
I haven´t been able to find it, which keyword should I use, or what´s the name?

{
relevant {
Data contains "P";
}
finalise {
# we just fetch samples at end
xx <- samples(SECS);
yy <- cumsum(samples(POWER) )/xx;
}
x { xx; }
y { yy; }
}
To view this discussion visit https://groups.google.com/d/msgid/golden-cheetah-users/227cf1a9-a17c-4b83-90db-ff826e67b2dan%40googlegroups.com.
For the “Elevation Delta” data series, “sapply” can be omitted.
from:
yy <- sapply(alt, x - alt[0]);
to:
yy <- alt - alt[0];