I'm wondering if anyone has developed a script to run in the R statistical package that can validate data files (i.e. sufficient wear time), clean files (remove non-wear time etc.) and produce the usual summary estimates (i.e. cpm, mins of mvpa etc.)?