# NOT RUN {
smoothed.density <- get.smoothed.tag.density(chip.data,
control.tags=input.data,
bandwidth=200,
step=100,
tag.shift=round(binding.characteristics$peak$x/2));
writewig(smoothed.density,
"example.density.wig",
"Example smoothed, background-subtracted tag density");
# }
Run the code above in your browser using DataLab