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