# importar bibliotecas
library(seewave)
library(tuneR)

# cargar un archivo de audio con readWave del paquete tuneR
oamer <- readWave("Oamer.wav")
# imprimir datos del archivo
oamer 

# Wave Object
#         Number of Samples:      1353808
#         Duration (seconds):     30.7
#         Samplingrate (Hertz):   44100
#         Channels (Mono/Stereo): Mono
#         PCM (integer format):   TRUE
#         Bit (8/16/24/32/64):    24 

# graficar la forma de onda con oscillo del paquete seewave
layout(matrix(1:3, nrow=3))
oscillo(oamer)
oscillo(oamer, from=3.25, to=3.75)
oscillo(oamer, from=3.3, to=3.4)

# leer anotaciones manuales desde archivo csv
oamer_marcas <- read.csv(file = 'Oamer.txt', sep = "\t")
oamer_marcas

# leer inicios y finales
inicios <- oamer_marcas$Begin.Time..s.
finales <- oamer_marcas$End.Time..s.

# graficar forma de onda y anotaciones
layout(matrix(1:2, nrow=2))
plot(normalize(oamer), main='Oamer')
par(new=TRUE)
for (t in inicios)
{
  abline(v = t, col = "darkgreen")
}
for (t in finales)
{
  abline(v = t, col = "darkred")
}

### TAREAS CLASE 2 ###

# Ejercicio 1: calcular duraciones y duración promedio

# Ejercicio 2: calcular pausas y pausas promedio

# Ejercicio 3: calcular duracion de periodo del canto y su valor promedio