1 files changed, 1 insertions, 1 deletions
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