You didn't tell us what your problem is, but it probably relates to the fact that mydata is never defined.
---------------------------------------------- David L Carlson Associate Professor of Anthropology Texas A&M University College Station, TX 77843-4352 > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-bounces@r- > project.org] On Behalf Of Nurdiyanah Jambari > Sent: Sunday, May 13, 2012 12:04 AM > To: r-help@r-project.org > Subject: [R] how to write data using xlsReadWrite > > 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]] > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting- > guide.html > and provide commented, minimal, self-contained, reproducible code. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
