-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathread_data.R
51 lines (32 loc) · 2.73 KB
/
read_data.R
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
library (paleobioDB)
## download data from the paleobioDB: 08-04-2015
carnivora<- pbdb_occurrences (limit="all", vocab= "pbdb",
base_name="Carnivora", show=c("coords", "phylo", "ident", "paleoloc"))
mammals<- pbdb_occurrences (limit="all", vocab= "pbdb",
base_name="Mammalia", show=c("coords", "phylo", "ident", "paleoloc"))
amphibians<- pbdb_occurrences (limit="all", vocab= "pbdb",
base_name="Amphibia", show=c("coords", "phylo", "ident", "paleoloc"))
birds<- pbdb_occurrences (limit="all", vocab= "pbdb",
base_name="Aves", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_paleo<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Paleozoic",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_triassic<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Triassic",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_jurassic<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Jurassic",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_cretaceous<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Cretaceous",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_pleist<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Pleistocene",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_plio<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Pliocene",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_mio<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Miocene",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_oligo<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Oligocene",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_oligo<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Oligocene",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_eocene<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Eocene",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))
reptils_paleocene<- pbdb_occurrences (limit="all", vocab= "pbdb", interval="Paleocene",
base_name="Reptilia", show=c("coords", "phylo", "ident", "paleoloc"))