{
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; });