## Not run: ------------------------------------
# data(serratia)
# countData=serratia[,-c(1,2,3)]
# location=serratia$Loc
#
#
# # obtain bias factor for the first sample
# foo=BiasFactor(location, countData[,1], window=10000)
#
# # obtain the adjusted counts after the bias correction
# countData.adj=countData[,1]/foo$bias.factor
#
#
## ---------------------------------------------
Run the code above in your browser using DataLab