[Yuima-commits] r54 - pkg/yuima/R

[noreply at r-forge.r-project.org]

Author: iacus
Date: 2009-12-28 08:57:30 +0100 (Mon, 28 Dec 2009)
New Revision: 54

Modified:
   pkg/yuima/R/subsampling.R
Log:
small changes to subsampling

Modified: pkg/yuima/R/subsampling.R
===================================================================
--- pkg/yuima/R/subsampling.R	2009-12-28 07:55:41 UTC (rev 53)
+++ pkg/yuima/R/subsampling.R	2009-12-28 07:57:30 UTC (rev 54)
@@ -122,14 +122,14 @@
 	  tmpsamp at n[i] <- length(Data[[i]])	 	 
 	 }
 	 
-	 print(str(tmpsamp))
+
 	 tmpsamp at oindex <- oindex
 	 tmpsamp at grid <- tmpgrid
 	 tmpsamp at regular <- sapply(1:n.data, function(x) sum(diff(diff(tmpgrid[[x]])))<1e-3)
 	 tmpsamp at delta[which(!tmpsamp at regular)] <- numeric(0)  
 	 obj <- NULL
 	 tmpsamp at interpolation <- interpolation
-print(str(tmpsamp))
+
 	 x at zoo.data <- Data 		 
 	 obj <- setYuima(data=x, sampling=tmpsamp)
 	 return(obj)