Code:
Code: Alles auswählen
# Benötigte Pakete
library(fftw)
library(tuneR)
library(rgl)
library(rpanel)
library(seewave)
# Code
file_audio <- 'Signal.wav'
cock <- readWave(file_audio)
spectro3D(cock, f=22050, wl=490, ovlp=85, zp=6, maga=4, palette=spectro.colors)
rgl.viewpoint(-90,0)
step1 <- seq(-90,271,by=4)
for (i in step1){
rgl.viewpoint(i,(i/4.5)+30)
filename <- paste("picA",which(step1==i),".png",sep="")
rgl.snapshot(filename)
}
rgl.viewpoint(270,90)
step2 <- seq(270,-90,by=-4)
for (i in step2){
rgl.viewpoint(i,(i/4.5)+30)
filename <- paste("picB",which(step2==i),".png",sep="")
rgl.snapshot(filename)}
Aber hier dieser Fehler taucht jedes mal auf.
Fehler:
Fehler in seq.default(min(Z, na.rm = TRUE), maga, by = abs(min(Z, na.rm = TRUE))/4) :
'from' must be a finite number
Ich würde mich über eine Antwort sehr freuen
Liebe Grüße
Alex_Wa