Analisis de Isotopos Estables con ‘SIBER’

— ANÁLISIS PARA CADA TEMPORADA: SECA & LLUVIOSA

— Empezamos el Análisis de Solapamiento: 1. Temporada Seca

#--- Para reproducibilidad
set.seed(1)
library(SIBER)

Leer los datos

mydata <- read.table("Terminos_consumers_groups+comm_SECA.csv",sep=",",header=T)

Para crear los datos para SIBER, la función recibe un data.frame y crea una lista de 12 elementos

siber.example <- createSiberObject(mydata)

Se toman las coordenadas de cada isótopo para cada grupo

spx <- split(siber.example$original.data$iso1, 
             siber.example$original.data$group)
spy <- split(siber.example$original.data$iso2,
             siber.example$original.data$group)

Se calulan los solapamientos de nicho, utilizando la función “overlap” del paquete {siar}

library(siar)

con las “nuevas funciones” desarrolladas en este curso:

Se calculan las áreas de cada nicho de cada grupo, y las áreas de sobreposición entre todas las parejas de grupos

se expresan las áreas de sobreposición como porcentaje respecto al área del grupo en las filas

se expresan las áreas de sobreposición como porcentaje respecto al área del grupo en las columnas

se expresan las áreas de sobreposición como porcentaje respecto al área total de los dos grupos

— Seguimos el Análisis de Solapamiento: 1. Temporada Lluviosa

Leer los datos

Crea los datos para SIBER:

siber.example2 <- createSiberObject(mydata2)

Se toman las coordenadas de cada isótopo para cada grupo

Áreas de cada nicho y áreas de sobreposición

solapamiento como porcentaje de las filas

sobrePorcenFila(ensayo2)

solapamiento como porcentaje de las columnas

sobrePorcenColumna(ensayo2)

solapamiento como porcentaje del área total

sobrePorcenTotal(ensayo2)