designDir <- file.path(system.file("extdata", package="Chicago"), "unitTestDesign")
cd <- setExperiment(designDir)
##Suppose I want to increase the zone in which Brownian noise is assumed to dominate
##(by default, 1500000):
print(settings(cd)$maxLBrownEst)
cd <- modifySettings(cd, settings=list(maxLBrownEst = 3000000L))
print(settings(cd)$maxLBrownEst)
Run the code above in your browser using DataLab