require(rangeMapper)
dbcon = rangeMap.start(file = "test.sqlite", overwrite = TRUE, dir = tempdir() )
# Breeding range vector files location
f = system.file(package = "rangeMapper", "extdata", "wrens", "vector_combined")
# Save the global bounding box,
global.bbox.save(con = dbcon, bbox = f,
p4s = CRS("+proj=cea +lon_0=0 +lat_ts=30 +x_0=0 +y_0=0 +ellps=WGS84 +units=m +no_defs") )
# upload grid size
gridSize.save(dbcon, gridSize = 200000) # cell size ~ 200km
# save canvas
canvas.save(dbcon)
summary(canvas.fetch(dbcon) )
# Upload BIO tables
data(wrens)
bio.save(con = dbcon, loc = wrens, ID = "sci_name")
# Process species ranges
r = readOGR(f, "wrens", verbose = FALSE)
processRanges(spdf = r, con = dbcon, ID = "sci_name" )
#Using sqlite aggregate functions
rangeMap.save(dbcon, FUN = "median" , biotab = "wrens",
biotrait = "body_size", tableName = "body_size")
# Fetch maps
summary(rangeMap.fetch(dbcon) )
# import raster maps the current project
require(rangeMapper)
dbcon = rangeMap.start(file = "wrens.sqlite", dir = tempdir(), overwrite = TRUE)
f = system.file(package = "rangeMapper", "extdata", "wrens", "vector_combined")
global.bbox.save(con = dbcon, bbox = f,
p4s = CRS("+proj=cea +lon_0=0 +lat_ts=30 +x_0=0 +y_0=0 +ellps=WGS84 +units=m +no_defs"))
gridSize.save(dbcon)
canvas.save(dbcon)
r = system.file(package = "rangeMapper", "extdata", "etopo1", "etopo1_Americas.tif")
rangeMap.save(dbcon, path = r, tableName = "meanAltitude", FUN = mean, overwrite = TRUE)
m = rangeMap.fetch(dbcon)
plot(m)
# more examples at: http://rangemapper.orn.mpg.de/
Run the code above in your browser using DataLab