library(fastseg)
#####################################################################
### the data
#####################################################################
data(coriell)
head(coriell)
samplenames <- colnames(coriell)[4:5]
data <- as.matrix(coriell[4:5])
data[is.na(data)] <- median(data, na.rm=TRUE)
chrom <- coriell$Chromosome
maploc <- coriell$Position
###########################################################
## GRanges
###########################################################
library("GenomicRanges")
## with both individuals
gr <- GRanges(seqnames=chrom,
ranges=IRanges(maploc, end=maploc))
mcols(gr) <- data
colnames(mcols(gr)) <- samplenames
res <- fastseg(gr)
## with one individual
gr2 <- gr
data2 <- as.matrix(data[, 1])
colnames(data2) <- "sample1"
mcols(gr2) <- data2
res <- fastseg(gr2)
###########################################################
## vector
###########################################################
data2 <- data[, 1]
res <- fastseg(data2)
###########################################################
## matrix
###########################################################
data2 <- data[1:400, ]
res <- fastseg(data2)
Run the code above in your browser using DataLab