tests/testCisMap.R

if (.Platform$OS.type != "windows") {
t20 = GGtools:::getCisMap()

NL = GGtools:::namelist(t20)

NL1 = NL[[1]]

t20sl = t20@snplocs[NL1]

probe1 = names(NL)[1]

TARG = t20@generanges[probe1]-50000

d = distance(TARG, t20sl)

all(d <= 50000)
} else TRUE

Try the GGtools package in your browser

Any scripts or data that you put into this service are public.

GGtools documentation built on Nov. 8, 2020, 6:32 p.m.