| # Plot spectrogram from random training sample - range is 0-22.05 kHz | |
| image(train$X[sample(dim(train$X)[1], 1),,,], | |
| xlab = "Time (s)", | |
| ylab = "Frequency (kHz)", | |
| axes = F) | |
| # Generate mel sequence from Hz points, standardize to plot | |
| freqs <- c(0, 1, 5, 15, 22.05) | |
| mels <- 2595 * log10(1 + (freqs*1e3) / 700) # https://en.wikipedia.org/wiki/Mel_scale | |
| mels <- mels - min(mels) | |
| mels <- mels / max(mels) | |
| axis(1, at = seq(0, 1, by = .2), labels = seq(0, 10, by = 2)) | |
| axis(2, at = mels, las = 2, | |
| labels = round(freqs, 2)) | |
| axis(3, labels = F); axis(4, labels = F) | |
| #### Save #### | |
| save(train, val, test, file = "prepAudio.RData") |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment