# NOT RUN {
# load data
# }
# NOT RUN {
data(cs_pus, cs_spp)
# create inputs for RapUnsolved
ro <- RapUnreliableOpts()
rd <- make.RapData(cs_pus[1:10,], cs_spp, NULL, include.geographic.space=TRUE,n.demand.points=5L)
# create RapUnsolved object
ru <- RapUnsolved(ro, rd)
print(ru)
# }
Run the code above in your browser using DataLab