From e729a99049105bf72b79c6d07493fc83146bf84d Mon Sep 17 00:00:00 2001 From: Suraj Yerramilli Date: Wed, 3 Jun 2015 13:30:15 +0530 Subject: Correction in NULL checking condition --- R/nonparam.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'R') diff --git a/R/nonparam.R b/R/nonparam.R index c9a081e..81ca580 100644 --- a/R/nonparam.R +++ b/R/nonparam.R @@ -100,7 +100,7 @@ spa <- function(data,WinSize=NULL){ # Non-parametric Estimation of Spectral Densities - # WOSA and Hanning window - if(WinSize==NULL){ + if(is.null(WinSize)){ M <- min(dim(temp,1),30) } else{ M <- WinSize -- cgit