Hai I'm Dee. I'm trying to write var data from these codes inside excel
file. My directory to store the data is *D:\FYP\image* .
these are my codes, can you help give an advice or idea with my problem:

l*ibrary("biOps")
library("waveslim")
library("xlsReadWrite")

x <- readTiff("D:\\FYP\\image\\SignatureImage\\user186g1.tif")
y <- imgBlockMedianFilter(x, 5)
#Plot image
#plot(y)

y.modwt <- modwt.2d(y, "la8", 2)
## Level 2 decomposition
par(mfrow=c(2,2), pty="s")

##Plot wavelets
image(y.modwt$LH2, col=rainbow(128), axes=FALSE, main="LH2")
image(y.modwt$HH2, col=rainbow(128), axes=FALSE, main="HH2")
image(y.modwt$LL2, col=rainbow(128), axes=FALSE, main="LL2")
image(y.modwt$HL2, col=rainbow(128), axes=FALSE, main="HL2")

#-------------------------------------------------------------------#
##Get the dimension
##LH2
dimLH2 <- dim(y.modwt$LH2)
dimLH2x <- dimLH2[1]
dimLH2y <- dimLH2[2]
varLH2xlist <- c(rep(0, dimLH2x))
varLH2ylist <- c(rep(0, dimLH2y))


##Loop to get variance from x axis
for(i in seq(dimLH2x)){
    varLH2xlist[i] <- var(y.modwt$LH2[i,])
}

##Get the variance from the overall x variance
varLH2x <- var(varLH2xlist)

##Loop to get variance from y axis
for(i in seq(dimLH2y)){
    varLH2ylist[i] <- var(y.modwt$LH2[,i])
}

##Get the variance from the overall y variance
varLH2y <- var(varLH2ylist)

#-----------------------------------------------------------------#
##Get the dimension
##HH2
dimHH2 <- dim(y.modwt$HH2)
dimHH2x <- dimHH2[1]
dimHH2y <- dimHH2[2]
varHH2xlist <- c(rep(0, dimHH2x))
varHH2ylist <- c(rep(0, dimHH2y))


##Loop to get variance from x axis
for(i in seq(dimHH2x)){
    varHH2xlist[i] <- var(y.modwt$HH2[i,])
}

##Get the variance from the overall x variance
varHH2x <- var(varHH2xlist)

##Loop to get variance from y axis
for(i in seq(dimHH2y)){
    varHH2ylist[i] <- var(y.modwt$HH2[,i])
}

##Get the variance from the overall y variance
varHH2y <- var(varHH2ylist)

#-----------------------------------------------------------------#
##Get the dimension
##LL2
dimLL2 <- dim(y.modwt$LL2)
dimLL2x <- dimLL2[1]
dimLL2y <- dimLL2[2]
varLL2xlist <- c(rep(0, dimLL2x))
varLL2ylist <- c(rep(0, dimLL2y))


##Loop to get variance from x axis
for(i in seq(dimLL2x)){
    varLL2xlist[i] <- var(y.modwt$LL2[i,])
}

##Get the variance from the overall x variance
varLL2x <- var(varLL2xlist)

##Loop to get variance from y axis
for(i in seq(dimLL2y)){
    varLL2ylist[i] <- var(y.modwt$LL2[,i])
}

##Get the variance from the overall y variance
varLL2y <- var(varLL2ylist)

#-----------------------------------------------------------------#
##Get the dimension
##HL2
dimHL2 <- dim(y.modwt$HL2)
dimHL2x <- dimHL2[1]
dimHL2y <- dimHL2[2]
varHL2xlist <- c(rep(0, dimHL2x))
varHL2ylist <- c(rep(0, dimHL2y))


##Loop to get variance from x axis
for(i in seq(dimHL2x)){
    varHL2xlist[i] <- var(y.modwt$HL2[i,])
}

##Get the variance from the overall x variance
varHL2x <- var(varHL2xlist)

##Loop to get variance from y axis
for(i in seq(dimHL2y)){
    varHL2ylist[i] <- var(y.modwt$HL2[,i])
}

##Get the variance from the overall y variance
varHL2y <- var(varHL2ylist)

#-----------------------------------------------------------------#
##write excel file

write.xls(mydata, "D:\\FYP\\image.mydata.xls")*

-- 
Nurdiyanah Bt Hj Jambari
Student
Faculty of Engineering
Bachelor Engineering of Computer & Communication System Engineering
University Putra Malaysia

	[[alternative HTML version deleted]]

