R help - Nov 2006 - ??: Re: Need help in waveslim package: imodwt and universal.thresh.modwt

Airon,

I used R2.4.0 on a Windows XP (SP2) (not Chinese :-))
and it still works:
> data = read.csv("u:/airon.csv")
> xdata = data$Adj..Close
> modwt.la8 = modwt(xdata, "la8", n.level=6)
> summary(modwt.la8)
   Length Class  Mode   
d1 1467   -none- numeric
d2 1467   -none- numeric
d3 1467   -none- numeric
d4 1467   -none- numeric
d5 1467   -none- numeric
d6 1467   -none- numeric
s6 1467   -none- numeric
> ydata = imodwt(modwt.la8)
> summary(ydata)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  37.35   57.56   67.93   67.31   78.32  104.90 
> max(ydata-xdata)
[1] 2.957279e-11

Can you provide a simple program and the resulting
messages showing that it doesn't work?

Rogerio.


---------- Cabe?alho original -----------

De: "Airon Yiu" aironyiu at yahoo.com.hk
Para: "rdporto1" rdporto1 at terra.com.br
C?pia: "r-help" r-help at stat.math.ethz.ch
Data: Tue, 14 Nov 2006 13:56:51 +0800 (CST)
Assunto: ??: Re:[R] Need help in waveslim package: imodwt and
universal.thresh.modwt
> Hi  Rogerio:
>    
>   I am using Waveslim 1.5 on R 2.3.0, running on Chinese WinXP (SP2).  
>    
>   The data, attached in the CSV file, is a stock data (0001 from Hong Kong)
downloaded from Yahoo!Finance.  The time series data are the Adj. Close prices
(last column) from 4-Jan-00 to 30-Nov-2005.
>    
>   The waveslim mra rountines are working fine on these data.
>    
>   Thks

Hi Rogerio:
   
  Here is what I tried.  I have used only data points 1 to 1447 but the same
problems appear if I used all the data in the file I sent .
   
  >library(waveslim)
>infile <-"C:\\airon.csv"
>ckhdat <- read.csv(infile,header=TRUE, quote="")
  ...
1464       23-Dec-05,80.8,81,80.7,80.95,1538304,80.95
1465        28-Dec-05,80.85,81,80.3,80.7,3728116,80.7
1466      29-Dec-05,80.8,80.95,80.3,80.4,3145493,80.4
1467    30-Dec-05,80.4,80.2,78.85,79.65,7508611,79.65
>xdata <- ckhdata$adjcls[1:1447]
  > ckhdwt.la8 <- modwt(xdata, "la8",  n.levels =
6)
> names(ckhdwt.la8) <- c("w1", "w2", "w3",
"w4", "w5","w6", "v6")
> 
> ydata <- imodwt(ckhdwt.la8)
> ydata
numeric(0)
> thre_wc_univ <- universal.thresh.modwt(ckhdwt.la8, max.level = 4, hard =
FALSE)
¿ù»~¦babs(wc.fine) : ¨ç¼Æ¤£¯à¦³«D¼Æ­È¤Þ¼Æ
> 
  Note that the error message for universal.thresh.modwt  is in Chinese.  It
roughly means "Error at abs(wc.find) : variable cannot have non-numeric
value"
   
  I need to find an WinXP (English) machine to see if the same issue appers.
   
  Thks
  
rdporto1 <rdporto1@terra.com.br> »¡¡G
  Airon,

I used R2.4.0 on a Windows XP (SP2) (not Chinese :-))
and it still works:
> data = read.csv("u:/airon.csv")
> xdata = data$Adj..Close
> modwt.la8 = modwt(xdata, "la8", n.level=6)
> summary(modwt.la8)
Length Class Mode
d1 1467 -none- numeric
d2 1467 -none- numeric
d3 1467 -none- numeric
d4 1467 -none- numeric
d5 1467 -none- numeric
d6 1467 -none- numeric
s6 1467 -none- numeric
> ydata = imodwt(modwt.la8)
> summary(ydata)
Min. 1st Qu. Median Mean 3rd Qu. Max.
37.35 57.56 67.93 67.31 78.32 104.90
> max(ydata-xdata)
[1] 2.957279e-11

Can you provide a simple program and the resulting
messages showing that it doesn't work?

Rogerio.


---------- Cabeçalho original -----------

De: "Airon Yiu" aironyiu@yahoo.com.hk
Para: "rdporto1" rdporto1@terra.com.br
Cópia: "r-help" r-help@stat.math.ethz.ch
Data: Tue, 14 Nov 2006 13:56:51 +0800 (CST)
Assunto: ??: Re:[R] Need help in waveslim package: imodwt and
universal.thresh.modwt
> Hi Rogerio:
>
> I am using Waveslim 1.5 on R 2.3.0, running on Chinese WinXP (SP2). 
>
> The data, attached in the CSV file, is a stock data (0001 from Hong Kong)
downloaded from Yahoo!Finance. The time series data are the Adj. Close prices
(last column) from 4-Jan-00 to 30-Nov-2005.
>
> The waveslim mra rountines are working fine on these data.
>
> Thks


 _______________________________________
 YM - Â÷½u°T®§
 ´Nºâ§A¨S¦³¤Wºô¡A§AªºªB¤Í¤´¥i¥H¯d¤U°T®§µ¹§A¡A·í§A¤Wºô®É´N¯à¥ß§Y¬Ý¨ì¡A¥ô¦ó»¡¸Ü³£ÉN¨«¥¢¡C

	[[alternative HTML version deleted]]