# NOT RUN {
# get smoothed enrichment estimate profile using 500bp bandwidth at
# 50bp steps
smoothed.M <- get.smoothed.enrichment.mle(chip.data,bandwidth=500,step=50);
writewig(smoothed.M,"example.smoothedM.wig","Example smoothed log2 intensity ratio estimate");
# }
Run the code above in your browser using DataLab