# NOT RUN {
data(bov80K)
map1<-selectLocalOptimalSNPs(bov80K,bin=1,n=1000,w1=0,w2=1)
plot(map1)
scoreU(map1)
scoreE(map1)
map2<-selectLocalOptimalSNPs(bov80K,bin=2,n=1000,w1=0,w2=1)
plot(map2)
scoreU(map2)
scoreE(map2)
map3<-selectLocalOptimalSNPs(bov80K,bin=4,n=1000,w1=0.5,w2=0.5)
plot(map3)
scoreU(map3)
scoreE(map3)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab