You are writing out x rather than ft. If you do: write.ftable(ft, file = stdout())
it looks the same as the input. On 1/19/07, Giovanni Petris <[EMAIL PROTECTED]> wrote: > > Thank you, Prof Ripley. > > However, there is still something unclear to me about read.ftable. I > noticed the following behavior, which I found strange. I expected > read.ftable to be an "inverse" of write.ftable, so to speak. Is there > something I am missing, or is this a problem in read.ftable? > > Thanks, > Giovanni > > > file <- tempfile() > > cat(" Intercourse\n", > + "Race Gender Yes No\n", > + "White Male 43 134\n", > + " Female 26 149\n", > + "Black Male 29 23\n", > + " Female 22 36\n", > + file = file) > > file.show(file) > Intercourse > Race Gender Yes No > White Male 43 134 > Female 26 149 > Black Male 29 23 > Female 22 36 > > > ft <- read.ftable(file) > > ft ## OK so far > Intercourse Yes No > Race Gender > White Male 43 134 > Female 26 149 > Black Male 29 23 > Female 22 36 > > x <- as.table(ft) > > write.ftable(ftable(x, col.vars=2:3), file) > > file.show(file) > "Gender" "Male" "Female" > "Intercourse" "Yes" "No" "Yes" "No" > "Race" > "White" 43 134 26 149 > "Black" 29 23 22 36 > > > ft2 <- read.ftable(file) > > ft2 > Gender Male Female > Intercourse Yes No Yes No Yes No Yes No > Race > White 43 134 26 149 29 23 22 36 > Black 43 134 26 149 29 23 22 36 > > version > _ > platform sparc-sun-solaris2.8 > arch sparc > os solaris2.8 > system sparc, solaris2.8 > status > major 2 > minor 4.1 > year 2006 > month 12 > day 18 > svn rev 40228 > language R > version.string R version 2.4.1 (2006-12-18) > > -- > > Giovanni Petris <[EMAIL PROTECTED]> > Associate Professor > Department of Mathematical Sciences > University of Arkansas - Fayetteville, AR 72701 > Ph: (479) 575-6324, 575-8630 (fax) > http://definetti.uark.edu/~gpetris/ > > ______________________________________________ > R-help@stat.math.ethz.ch 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@stat.math.ethz.ch 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.