## Not run:
# data(leafdev)
# leafdev <- as(leafdev,"WaveTilingFeatureSet")
# data(leafdevMapAndFilterTAIR9)
# leafdevBQ <- bgCorrQn(leafdev,useMapFilter=leafdevMapAndFilterTAIR9)
# ## End(Not run)
Run the code above in your browser using DataLab