# NOT RUN {
set.seed(1234)
test_map <- qtl::sim.map(len=rep(20,5),n.mar=3,include.x=FALSE)
test_cross <- qtl::sim.cross(test_map,n.ind=50)
test_smap <- cbind(runif(50,1,100),runif(50,1,100))
test_genoprobs <- qtl::calc.genoprob(test_cross,step=2)
test_eff <- eff_neighbor(genoprobs=test_genoprobs,
pheno=test_cross$pheno$phenotype,
smap=test_smap, scale=20, fig=TRUE
)
# }
Run the code above in your browser using DataLab