data(Leukemia)
## Normalize the raw intensity values of the first 4 chromosomes.
result <- CGHnormaliter(Leukemia, nchrom=4)
## Get the normalized log2 intensity ratios, segments and calls
normalized.data <- copynumber(result)
segmented.data <- segmented(result)
called.data <- calls(result)
## Plot the normalization result of sample 2
plot(result[, 2])
## Write the normalized log2 intensity ratios to file
CGHnormaliter.write.table(result)
Run the code above in your browser using DataLab