example(GInteractions, echo=FALSE)
# Subsetting:
gi[1,]
gi[1:2,]
gi[3]
gi[3:4]
temp.gi <- gi
temp.gi[3:4] <- gi[1:2]
# Combining:
rbind(gi, gi)
c(gi, gi)
new.gi <- gi
regions(new.gi) <- resize(regions(new.gi), width=20, fix="start")
rbind(gi, new.gi)
# Splitting:
f <- sample(4, length(gi), replace=TRUE)
out <- split(gi, f)
out[[1]]
#################
# Same can be done for an InteractionSet object:
example(InteractionSet, echo=FALSE)
# Subsetting:
iset[1,]
iset[1:2,]
iset[,1]
iset[,1:2]
iset[3,3]
iset[3:4,3:4]
# Combining:
cbind(iset, iset)
rbind(iset, iset)
c(iset, iset)
new.iset <- iset
regions(new.iset) <- resize(regions(new.iset), width=20, fix="start")
rbind(iset, new.iset)
# Splitting:
out <- split(iset, f)
out[[1]]
Run the code above in your browser using DataLab