Nothing
## ----load_package--------------------------------------------------------
library( spThin )
## ------------------------------------------------------------------------
data( Heteromys_anomalus_South_America )
head( Heteromys_anomalus_South_America )
## ------------------------------------------------------------------------
table( Heteromys_anomalus_South_America$REGION )
## ------------------------------------------------------------------------
thinned_dataset_full <-
thin( loc.data = Heteromys_anomalus_South_America,
lat.col = "LAT", long.col = "LONG",
spec.col = "SPEC",
thin.par = 10, reps = 100,
locs.thinned.list.return = TRUE,
write.files = FALSE,
write.log.file = FALSE)
## ---- eval=FALSE---------------------------------------------------------
# thinned_dataset_full <-
# thin( loc.data = Heteromys_anomalus_South_America,
# lat.col = "LAT", long.col = "LONG",
# spec.col = "SPEC",
# thin.par = 10, reps = 100,
# locs.thinned.list.return = TRUE,
# write.files = TRUE,
# max.files = 5,
# out.dir = "hanomalus_thinned_full/", out.base = "hanomalus_thinned",
# write.log.file = TRUE,
# log.file = "hanomalus_thinned_full_log_file.txt" )
## ------------------------------------------------------------------------
plotThin( thinned_dataset_full )
## ------------------------------------------------------------------------
thinned_dataset_mainland <-
thin( loc.data = Heteromys_anomalus_South_America[ which( Heteromys_anomalus_South_America$REGION == "mainland" ) , ],
lat.col = "LAT", long.col = "LONG",
spec.col = "SPEC",
thin.par = 10, reps = 100,
locs.thinned.list.return = TRUE,
write.files = FALSE,
write.log.file = FALSE)
## ------------------------------------------------------------------------
thinned_dataset_trin <-
thin( loc.data = Heteromys_anomalus_South_America[ which( Heteromys_anomalus_South_America$REGION == "trin" ) , ],
lat.col = "LAT", long.col = "LONG",
spec.col = "SPEC",
thin.par = 10, reps = 10,
locs.thinned.list.return = TRUE,
write.files = FALSE,
write.log.file = FALSE)
## ------------------------------------------------------------------------
thinned_dataset_mar <-
thin( loc.data = Heteromys_anomalus_South_America[ which( Heteromys_anomalus_South_America$REGION == "mar" ) , ],
lat.col = "LAT", long.col = "LONG",
spec.col = "SPEC",
thin.par = 10, reps = 10,
locs.thinned.list.return = TRUE,
write.files = FALSE,
write.log.file = FALSE )
## ------------------------------------------------------------------------
thinned_dataset_tobago <-
thin( loc.data = Heteromys_anomalus_South_America[ which( Heteromys_anomalus_South_America$REGION == "tobago" ) , ],
lat.col = "LAT", long.col = "LONG",
spec.col = "SPEC",
thin.par = 10, reps = 10,
locs.thinned.list.return = TRUE,
write.files = FALSE,
write.log.file = FALSE )
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.