Я хочу удалить шум из данных спектроскопического сигнала.Я использую пакет «Prospect» с RStudio.
Я новичок в R. Я не понимаю следующую ошибку (см. Пункт 4)
Мой сценарий:
wav= read.table(file= "LS2017_ suel_SWIR-formJul.csv", header=T, sep=";", dec=",")
wav <- as.matrix(wav[ , 2:ncol(wav)])
str(wav)
clrs <- sample (colors(), 1)
clrs[c(1)] <- "black"
ejex <-1950 : 2400
matplot(ejex, type="l",xaxt= "n",xlim=c(1950 ,2400), ylim=c(0,1),xlab="longitud de onda (nm)",ylab="Reflectancia")
matlines(ejex,t(wav ), col= clrs,lty=1)
axis(side= 1, at= seq(0, 2400,50), las= 2)
par(usr=c(0.0, 1.0, 0, 2400),xaxp=c(0,2400,50))
ejex <-1950 : 2400
X <- movav(wav, w = 11)
clrs <- sample (colors(), 1)
clrs[c(1)] <- "red2"
plot(as.numeric(colnames(wav)), wav[1 , ], type = "l", xlab = "Wavelength",
ylab = "Reflectance")
lines(as.numeric(colnames(X)), X[ , ], col = clrs)
plot(as.numeric(colnames(wav)), wav[1 , ], type = "l", xlab = "Wavelength",
ylab = "Reflectance")
Ошибка в plot.window (...): se necesitan valores finitos de 'xlim' Дополнительно: Предупреждающие сообщения: 1: На графике (как .numeric (colnames (wav)), wav[1,], type = "l", xlab = "Длина волны",: NA, введенные по принуждению 2: в min (x): нет не пропущенных аргументов в min; возвращается Inf 3: в max (x): нет non-пропуск аргументов до max; возврат -Inf
строк (as.numeric (colnames (X)), X [,], col = clrs) Предупреждающее сообщение: в строках (as.numeric (colnames (X))), X [,], col = clrs): NA введены путем принуждения