# NOT RUN {
pss <- ps <- c(345035,345035); ch <- 1
force.chr.pos(ps,ch)
pss[1] <- 0
force.chr.pos(pss,ch) # won't allow zero
pss[1] <- -1
force.chr.pos(pss,ch) # won't allow negative
pss[1] <- 645035012
force.chr.pos(pss,ch) # won't allow pos > chromosome length
# }
Run the code above in your browser using DataLab