data(spatial)
data(flags)
flag.list <- list(spatial=local.spatial.flag, spot=spot.corr.flag,
ref.snr=ref.snr.flag, dapi.snr=dapi.snr.flag, rep=rep.flag,
unique=unique.flag)
flag.list$spatial$args <- alist(var="ScaledLogRatio", by.var=NULL,
nk=5, prop=0.25, thr=0.15, beta=1, family="symmetric")
flag.list$spot$args <- alist(var="SpotFlag")
flag.list$spot$char <- "O"
flag.list$spot$label <- "Image analysis"
## normalize arrayCGH
## Not run: edge.norm <- norm(edge, flag.list=flag.list,
# var="LogRatio", FUN=median, na.rm=TRUE)## End(Not run)
fs <- flag.summary(edge.norm, flag.list=flag.list, flag.var="Flag")
print("Flag and normalization parameters summary")
print(fs)
Run the code above in your browser using DataLab