[R] question on table format

Norbert NEUWIRTH
Mon, 19 Mar 2007 12:20:57 -0000

hi everybody,

i am hanging in a problem that should be solved quickly, but, in fact, i do not
get further: building up a SUR/SES-system myself, where the regressions are
finally used to be poisson and/or negative-binomial type, i want to generate a
simple table, where i can quickly see the coefficients and their markers  for
significance.

so i constructed this "final.table" (code & outout below). as the
markers for significance are character-type, the content of each cell in the
whole table appears as character with quotation marks.these quotations marks
should be suppressed. how can i handle this?

thank you in advance


norbert

---------------------------
code:

final.table3 <- as.matrix (cbind(
                      round(coef.sur5.lm[,1],4),sigc.sur5.lm[,1],
                      round(coef.sur5.lm[,2],4),sigc.sur5.lm[,2],
                      round(coef.sur5.lm[,3],4),sigc.sur5.lm[,3],
                      round(coef.sur5.lm[,4],4),sigc.sur5.lm[,4],
                      round(coef.sur5.lm[,5],4),sigc.sur5.lm[,5]
                  ))
colnames(final.table3) <- c("MW","sig.",
                            "HP","sig.",
                            "CC","sig.",
                            "AL","sig.",
                            "RC","sig.")

---------------------------
output:

              MW        sig.  HP        sig.  CC        sig.  AL        sig.  RC
sig.
(Intercept) "6.7757"  "***" "-2.2851"
"***" "-0.067"  ""    "8.517"
"***" "11.0767" "***"
FEMALE      "-1.6267" "***" "2.4045"
"***" "0.2892"  "***" "-1.0887"
"***" "0.0236"  ""
AGE         "-0.0324" "."   "0.1923"
"***" "0.0158"  "***" "-0.0984"
"***" "-0.0778" "***"
I(AGE^2)    "1e-04"   ""    "-0.0019"
"***" "-2e-04"  "***" "0.0011"
"***" "0.001"   "***"
C2.H        "-0.2589" "*"   "0.2051"
"**"  "0.5289"  "***" "-0.4537"
"***" "-0.0211" ""
C2_3.H      "-0.4278" "**"  "0.118"   ""
"0.4837"  "***" "-0.1301" ""
"-0.0422" ""
...		...		...		...		...		...
--
-------------------------------
Mag. Norbert NEUWIRTH

Roubiczekgasse 2/23
A-1100  WIEN
mob: +43 699 1835 0704