I am uploading a notebook (generated in Mathematica 7) that does what I think you wish to see. My apologies for not reusing your notebook, because it exhibits instability (mostly hangs, or errors due to the Row["\ntime...] I think) on my laptop.

The overall idea is the same (as I understood it). Given a dataset, I plot the dataset and overlay a moving average of n-elements chosen from a subset of dataset ranging from a to b. In the sample, I enable tooltip for both the raw dataset and the moving average. I hope this is helpful. Thank you.

Attachments:

On my Mathematica 7, the notebook without Row["\ntime...] worked correctly. Did you wish to add a tooltip like so - this one shows the averaging days "m" when you mouse over the red line.

Tooltip[ Line@Transpose[{Range[a, b, (b - a)/(Length[mm] - 1)], mm}], ToString[m]]

Thanks for your quick reply and let me know about the bug. My question to tooltip is; can I use and where add 'tooltip' of the data "datafreq" in the plot? Jos