Mercurial > repos > stemcellcommons > spp_tool
changeset 14:d4e99c087688
Changes for compatibility with SPP R package version 1.11.
author | Ilya Sytchev <isytchev@hsph.harvard.edu> |
---|---|
date | Tue, 15 Oct 2013 15:05:49 -0400 |
parents | 64f2784d471f |
children | a83ceb02d138 |
files | run_spp.R |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/run_spp.R Thu Feb 07 23:43:43 2013 -0500 +++ b/run_spp.R Tue Oct 15 15:05:49 2013 -0400 @@ -859,14 +859,14 @@ # Write to narrowPeak file if (!is.na(iparams$output.npeak.file)) { - write.narrowpeak.binding(narrow.peaks,iparams$output.npeak.file,margin=round(crosscorr$whs/2),npeaks=iparams$npeak) + write.narrowpeak.binding(narrow.peaks,iparams$output.npeak.file,margin=round(crosscorr$whs/2)) #system(paste('gzip -f ',iparams$output.npeak.file)) } # Compute and write regionPeak file if (!is.na(iparams$output.rpeak.file)) { region.peaks <- add.broad.peak.regions(chip.data,control.data,narrow.peaks,window.size=max(50,round(crosscorr$whs/4)),z.thr=10) - write.narrowpeak.binding(region.peaks,iparams$output.rpeak.file,margin=round(crosscorr$whs/2),npeaks=iparams$npeak) + write.narrowpeak.binding(region.peaks,iparams$output.rpeak.file,margin=round(crosscorr$whs/2)) #system(paste('gzip -f ',iparams$output.rpeak.file)) }