El oso de anteojos conocido también bajo el nombre científico Tremartos ornatus es una especie nativa de Suramérica. Se encuentra en la región de los andes de Ecuador, Venezuela, Perú, Colombia y Bolivia. En los ecosistema donde vive presentan una temperatura promedio que ronda entre los 20 y los 30 grados celsius y un rango de altura entre los 435 y los 3.658 metros sobre el nivel del mar

Con esta información se desea realizar un análisis tipo ráster para observar e interpretar por medio de datos geográficos y meteorológicos las zonas donde pueda ser posible que Tremartos ornatus pueda sobrevivir

require(raster)
## Loading required package: raster
## Warning: package 'raster' was built under R version 4.0.5
## Loading required package: sp
## Warning: package 'sp' was built under R version 4.0.5
require(rgdal)
## Loading required package: rgdal
## Warning: package 'rgdal' was built under R version 4.0.5
## 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: E:/R-4.0.3/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: E:/R-4.0.3/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 E:/R-4.0.3/library/rgdal/proj
require(sp)

nom=list.files("C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg",full.names = TRUE)
nom
##  [1] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_01.tif"
##  [2] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_02.tif"
##  [3] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_03.tif"
##  [4] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_04.tif"
##  [5] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_05.tif"
##  [6] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_06.tif"
##  [7] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_07.tif"
##  [8] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_08.tif"
##  [9] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_09.tif"
## [10] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_10.tif"
## [11] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_11.tif"
## [12] "C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_tavg/wc2.1_10m_tavg_12.tif"
temp=stack(nom)
names(temp)=month.name

Se realiza un plot con las temperaturas óptimas para Tremartos ornatus a lo largo del año

temp_opt=temp>20 & temp<30
names(temp_opt)=month.name
plot(temp_opt)

Se observa que las temperaturas ideales para que Tremartos ornatus pueda sobrevivir se concentran en la zona norte de suramérica, parte de centroamérica, en áfrica, parte de ásia y oceanía. También se observa que en algunos meses las condiciones de temperatura también se cumplen en la región sur de norteamerica, pero no ocurre en todos los meses.

A continuación se realiza un raster para observar en que regiones del planeta se cumplen las condiciones de altura para Tremartos ornatus

elev=raster("C:/Users/PC/Desktop/La U/Quinto Semestre/Bioestadistica/Clase 11 -/wc2.1_10m_elev/wc2.1_10m_elev.tif")

elev_opt=elev>435 & elev<3658


plot(elev_opt)

En la imágen se observa que en muchas partes del planeta presentan los rangos de altura optimos para Tremartos ornatus, algunos ejemplos son: la región oeste de norteamérica, la región oeste de suramética, la región sur de áfrica, parte de europa, ásia, parte de oceanía e incluso la región antártica. Sin embargo esta foto no representa con mucha certeza las zona donde verdaderamente Tremartos ornatus puede sobrevivir, pues muchas de estas zonas no necesariamente cumplen las condiciones de temperatura óptimas.

Para darle solución a este problema, se van a combinar los mapas de altura y temperatura para observar con certeza las regiones del planeta donde Tremartos ornatus puede vivir.

aptidud_temp=sum(temp_opt)
aptitud=stack(aptidud_temp,elev_opt)

names(aptitud)=c("temperatura","elevación")

a=aptidud_temp>8
b=elev_opt>0.6

apt_glob=a*b

plot(apt_glob)

En la imágen se observa que Tremartos ornatus puede vivir en algunas zonas del continente suramericano, parte de centro américa, algunas zona de norteamética, en áfrica, y en algunas zonas de ásia. Sin embargo hay que tener en cuenta que estos datos son solo de altura y temperatura, pueden existir otras variables que hagan a Tremartos ornatus una especie endémica de suramérica y por eso no es posible verlo en otros continentes.

REFERENCIAS

Fenner, K. 2012. “Tremarctos ornatus” (On-line), Animal Diversity Web. Accessed October 28, 2021 at https://animaldiversity.org/accounts/Tremarctos_ornatus/

Rainforest: Mission: Biomes. Earthobservatory.nasa.gov. (2021). Retrieved 28 October 2021, from https://earthobservatory.nasa.gov/biome/biorainforest.php.

World Biomes. Kids.nceas.ucsb.edu. (2021). Retrieved 28 October 2021, from http://kids.nceas.ucsb.edu/biomes/savanna.html.