# 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)
# ## End(Not run)
Run the code above in your browser using DataLab