Re: genetic algorithms
- To: mathgroup at smc.vnet.net
- Subject: [mg92633] Re: genetic algorithms
- From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
- Date: Thu, 9 Oct 2008 06:34:48 -0400 (EDT)
- Organization: The Open University, Milton Keynes, UK
- References: <200809231137.HAA01052@smc.vnet.net> <gci1tc$jd$1@smc.vnet.net>
Tugrul Temel wrote:
> With the following command I am able to create a table with (10 rows, 4
> columns). I want to export this table in the same format to an Excel
> worksheet to do some more calculations. I need some help.
>
> Print[ TableForm[postDist, TableHeadings -> {{}, {"Variable", "Post-mean",
> "Post-se"}}] ];
Look in the online help for *Export*. Also, you should prepend the
header to the data and export the resulting list. For instance,
In[14]:= postDist = RandomInteger[1, {10, 4}]
sheet = Prepend[postDist, {"Variable", "Post-mean", "Post-se", ""}]
Export["myFile.xls", sheet]
Out[14]= {{1, 1, 0, 0}, {1, 0, 0, 0}, {0, 0, 1, 0}, {0, 1, 0, 1}, {1,
0, 0, 1}, {0, 0, 1, 1}, {1, 0, 0, 0}, {0, 0, 1, 0}, {1, 0, 1,
0}, {1, 1, 1, 1}}
Out[15]= {{"Variable", "Post-mean", "Post-se", ""}, {1, 1, 0, 0}, {1,
0, 0, 0}, {0, 0, 1, 0}, {0, 1, 0, 1}, {1, 0, 0, 1}, {0, 0, 1,
1}, {1, 0, 0, 0}, {0, 0, 1, 0}, {1, 0, 1, 0}, {1, 1, 1, 1}}
Out[16]= "myFile.xls"
HTH,
-- Jean-Marc