bind: Function to bind objects together into a longer object.

Description Usage Arguments Details Value Author(s) References Examples

View source: R/bind.R

Description

From multiple download*s, dataset*s or sites, join them together into a single object.

Usage

1
bind(x, ...)

Arguments

x

An object returned by one of the get_* commands for download, site or dataset.

...

other objects of the same class.

Details

To support further synthesis and analysis compile_download works to transform a list returned by get_download into a large data frame with columns for site and sample attributes and also with the associated assemblage data at each sample depth. This function also does the same for single sites.

Value

This command returns a larger list.

Author(s)

Simon J. Goring [email protected]

References

Neotoma Project Website: http://www.neotomadb.org

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
## Not run: 
#  Search for sites with "Thuja" pollen that are older than 8kyr BP and
#  that are on the west coast of North America:
t8kyr.poa <- get_dataset(taxonname="Thuja*", 
                         loc=c(-150, 20, -100, 60), ageyoung = 8000)
t8kyr.canis <- get_dataset(taxonname="Canis*", 
                           loc=c(-150, 20, -100, 60), ageyoung = 8000)

t8kyr.co_site <- bind(t8kyr.poa, t8kyr.canis)
plot(t8kyr.co_site)

####
# We want to look at four different dataset types across a forest-prairie 
# boundary:
dataset_types <- c("ostracode surface sample",
                   "water chemistry",
                   "diatom surface sample",
                   "pollen surface sample")

# Run the `get_dataset` function for each of the different dataset types 
dataset_lists <- lapply(dataset_types, 
                          function(x) { 
                            get_dataset(datasettype=x, 
                                        loc = c(-100,43,-92,48))
                                        })

# Using do.call here to make sure that I don't have to split the list out.
new_datasets <- do.call(bind, dataset_lists)

# And voila!
plot(new_datasets)


## End(Not run)

neotoma documentation built on June 23, 2017, 4:44 a.m.