## Not run:
# data(lemurs)
# data(mdg_poly)
#
# inp <- ReadPoints(lemurs, mdg_poly)
# outp <- SpGeoCodH(inp)
# WriteOut(outp)
# WriteOut(outp, writetype = "graphs")
# WriteOut(outp, writetype = "statistics")
# WriteOut(outp, writetype = "nexus")
# WriteOut(outp, writetype = "coexistence")
# ## End(Not run)
Run the code above in your browser using DataLab