[R] export test results to csv

[Ivan Calandra]

Hi everybody!

I would like to export the results of a test statistic in a *.csv file, 
but get an error.
The code is below.
The data are attached as .txt with tab as separator. I tried to get a 
sample dataset, but for some reason it didn't work, so please excuse the 
length of the file. I also attached a txt with the output (copy/paste) 
in case that helps.

----
 > library(WRS)
 > ssfamed <- read.table(file=file.choose(), header=T, sep="\t")
 > ssfa_Asfc <- fac2list(ssfa[,7], ssfa[3])  #store into list mode
 > test <- pbmcp(ssfa_Asfc, alpha=0.05, nboot=2000, bhop=F)  #it takes 
about 5 seconds to run
 > write.csv(test, file="pbmcp.csv", append=F, quote=F, row.names=F)
Error in data.frame(output = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,  :
   arguments imply differing number of rows: 15, 6, 1
----

I guess it is because of the formatting of the "test" object and I 
should reorganize it, but I actually have no idea how to do it.
Tips would be greatly appreciated!

Thanks in advance
Ivan

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: output.txt
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20100204/a1b8bb1b/attachment.txt>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: test_data.txt
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20100204/a1b8bb1b/attachment-0001.txt>