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)
錯誤在abs(wc.fine) : 函數不能有非數值引數
> 

  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> 說：
  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蓷lho original -----------

De: "Airon Yiu" aironyiu@yahoo.com.hk
Para: "rdporto1" rdporto1@terra.com.br
C鏕ia: "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 - 離線訊息
 就算你沒有上網，你的朋友仍可以留下訊息給你，當你上網時就能立即看到，任何說話都冇走失。

	[[alternative HTML version deleted]]

