##Phyllobates terribilis

La rana dorada venenosa, rana dardo dorada o rana de dardo venenosa (Phyllobates terribilis) es un anfibio anuro normalmente nocturno de la familia Dendrobatidae, esta es endémica de la costa pacífica colombiana y es actualmente considerado el animal más tóxico y venenoso del mundo. Esta es una de las especies más grandes de rana dardo venenosa pues puede alcanzar los 55 mm al ser adulto.

Su hábitat principal esta dictado las siguientes variables :

*Humedad relativa

*Temperatura

*Altitud

Por lo tanto, se esquematizara las temperatusa y la altitud optima para esta especie.

####TEMPERATURA

require(sp)
## Loading required package: sp
require(raster)
## Loading required package: raster
require(rgdal)
## Loading required package: rgdal
## Please note that rgdal will be retired by the end of 2023,
## plan transition to sf/stars/terra functions using GDAL and PROJ
## at your earliest convenience.
## 
## rgdal: version: 1.5-27, (SVN revision 1148)
## Geospatial Data Abstraction Library extensions to R successfully loaded
## Loaded GDAL runtime: GDAL 3.2.1, released 2020/12/29
## Path to GDAL shared files: C:/Users/Otro/Documents/R/R-4.1.1/library/rgdal/gdal
## GDAL binary built with GEOS: TRUE 
## Loaded PROJ runtime: Rel. 7.2.1, January 1st, 2021, [PJ_VERSION: 721]
## Path to PROJ shared files: C:/Users/Otro/Documents/R/R-4.1.1/library/rgdal/proj
## PROJ CDN enabled: FALSE
## Linking to sp version:1.4-5
## To mute warnings of possible GDAL/OSR exportToProj4() degradation,
## use options("rgdal_show_exportToProj4_warnings"="none") before loading sp or rgdal.
## Overwritten PROJ_LIB was C:/Users/Otro/Documents/R/R-4.1.1/library/rgdal/proj
nombres=list.files("C:/Users/Otro/Desktop/temp/",full.names = TRUE)
temps=stack(nombres)
names(temps)=month.name
plot(temps)

plot(temps[[1:2]])

Teniendo en cuenta que esta especie necesita una temperatura entre los 18ºC y los 26ºC, siendo la màs favorable entre los 24ºC y 26ºC, por lo que se esquematizara los lugares con las temperaturas en este rango donde esta especie podrìa llegar a vivir.

temp_opt=temps>24 & temps<26
plot(temp_opt)

aptitud_temp=sum(temp_opt)
plot(aptitud_temp)

table(aptitud_temp[])
## 
##      0      1      2      3      4      5      6      7      8      9     10 
## 607540  70314  59560  18264  12434   9377   6717   5194   5328   3585   3741 
##     11     12 
##   2069   3930

En el mapa arrojado se puede observar que esta especie podria llegar a vivir hipoteticamente en algunas zonas de Centro y Sur America, tambièn en algunas zonas de Africa, Asia y Oceania.

####ALTITUD Posterirmente, se esquematizara los posibles lugares en donde esta esecie puede vivir, teniendo en cuenta que se encuentra entre los 100 y 200 msnm.

nombres=list.files("C:/Users/Otro/Desktop/elev/",full.names = TRUE,pattern = ".tif")
eleva=stack(nombres)

opt_eleva=eleva>100 & eleva<200

plot(opt_eleva)
aptitud_eleva=sum(opt_eleva)
## Warning in sum(new("RasterLayer", file = new(".RasterFile", name = "",
## datanotation = "LOG1S", : Nothing to summarize if you provide a single
## RasterLayer; see cellStats
plot(aptitud_eleva)

Al observar el grafico arrojado, se puede evidenciar que esta especie se podria distribuir por multiples localidades.

###Posible distribuciòn:

Teniendo en el rango de temperaturas y altitud optimas para esta P. terribilis, se podria juntar los dos graficos arrojados anteriormente y asi poder observar una distribuciòn hipotetica para esta especie.

aptitudes=stack(aptitud_temp,aptitud_eleva)
names(aptitudes)=c("Temperatura","Altura/Elevaciòn")
plot(aptitudes)

a=aptitud_temp>6
b=aptitud_eleva>6
apt_global1=a+b
plot(apt_global1)

Al observar el grafico arrojado, se evidencia como las zonas donde se podria encontrar esta especie se han reducido, esto es ya que se selecciono especificamente las zonas que comparten una temperatura entre 24-26ºC y una altitud entre 100 y 200 msnm.

El trabajo anterior es hipotetico, ya que esta especie se puede encontrar unicamente en selvas húmedas de los departamentos del Chocó, Cauca y Valle del Cauca en la costa pacífica de Colombia y el hábitat óptimo de la P. terribilis son los bosques lluviosos con alta tasa de lluvia (5000 mm o más), altitud entre 100 y 200 m, temperaturas entre los 18°C y 26 °C y humedad relativa entre 80 % y 90 %.

Referencia:

AmphibiaWeb2021 Phyllobates terribilis: Golden Poison Frog https://amphibianweb.org/species/1707 University of California, Berkeley, CA, USA.