load(system.file("exampleData/mlData.RData", package = "cn.farms"))
mlData <- mlData[, 1:3]
colnames(assayData(mlData)$L_z) <- sampleNames(mlData)
segments <- dnaCopySf(
x = assayData(mlData)$L_z,
chrom = fData(mlData)$chrom,
maploc = fData(mlData)$start,
cores = 1,
smoothing = FALSE)
fData(segments)
Run the code above in your browser using DataLab