On Thu, 3 Mar 2005, Nam-Ky Nguyen wrote:
Dear R gurus,
Below is a part of the R output. Please consider the two lines:
Is there a way of suppressing the observation numbers 1, 2, ...27 in the
output (I don't want these number to appear in the output)?
Actually, these are the row names of a data frame, and the answer is yes.
(Note: I _have_ answered your question!)
If you meant to ask how to do it, here is a hint
library(MASS); write.matrix(hills)
# Orthogonal blocking
data=read.table("cut.txt",header=T)
attach(data)
data
b x1 x2 x3
1 1 -1 -1 0
2 1 -1 0 1
3 1 -1 1 -1
4 1 0 -1 0
5 1 0 0 1
6 1 0 1 -1
7 1 1 -1 -1
8 1 1 0 0
9 1 1 1 1
10 2 -1 -1 -1
11 2 -1 0 0
12 2 -1 1 1
13 2 0 -1 1
14 2 0 0 -1
15 2 0 1 0
16 2 1 -1 0
17 2 1 0 1
18 2 1 1 -1
19 3 -1 -1 1
20 3 -1 0 -1
21 3 -1 1 0
22 3 0 -1 -1
23 3 0 0 0
24 3 0 1 1
25 3 1 -1 1
26 3 1 0 -1
27 3 1 1 0
b=factor(b)
y=rnorm(27)
x4=x1*x2
x5=x1*x3
x6=x2*x3
x7=x1*x1
x8=x2*x2
x9=x3*x3
options(contrasts=c("contr.sum","contr.poly"))
m1=lm(y~b+x1+x2+x3+x4+x5+x6+x7+x8+x9)
model.matrix(m1)
(Intercept) b1 b2 x1 x2 x3 x4 x5 x6 x7 x8 x9
1 1 1 0 -1 -1 0 1 0 0 1 1 0
2 1 1 0 -1 0 1 0 -1 0 1 0 1
3 1 1 0 -1 1 -1 -1 1 -1 1 1 1
4 1 1 0 0 -1 0 0 0 0 0 1 0
5 1 1 0 0 0 1 0 0 0 0 0 1
6 1 1 0 0 1 -1 0 0 -1 0 1 1
7 1 1 0 1 -1 -1 -1 -1 1 1 1 1
8 1 1 0 1 0 0 0 0 0 1 0 0
9 1 1 0 1 1 1 1 1 1 1 1 1
10 1 0 1 -1 -1 -1 1 1 1 1 1 1
11 1 0 1 -1 0 0 0 0 0 1 0 0
12 1 0 1 -1 1 1 -1 -1 1 1 1 1
13 1 0 1 0 -1 1 0 0 -1 0 1 1
14 1 0 1 0 0 -1 0 0 0 0 0 1
15 1 0 1 0 1 0 0 0 0 0 1 0
16 1 0 1 1 -1 0 -1 0 0 1 1 0
17 1 0 1 1 0 1 0 1 0 1 0 1
18 1 0 1 1 1 -1 1 -1 -1 1 1 1
19 1 -1 -1 -1 -1 1 1 -1 -1 1 1 1
20 1 -1 -1 -1 0 -1 0 1 0 1 0 1
21 1 -1 -1 -1 1 0 -1 0 0 1 1 0
22 1 -1 -1 0 -1 -1 0 0 1 0 1 1
23 1 -1 -1 0 0 0 0 0 0 0 0 0
24 1 -1 -1 0 1 1 0 0 1 0 1 1
25 1 -1 -1 1 -1 1 -1 1 -1 1 1 1
26 1 -1 -1 1 0 -1 0 -1 0 1 0 1
27 1 -1 -1 1 1 0 1 0 0 1 1 0
attr(,"assign")
[1] 0 1 1 2 3 4 5 6 7 8 9 10
attr(,"contrasts")
attr(,"contrasts")$b
[1] "contr.sum"
--
Nam-Ky Nguyen, Senior Lecturer
School of Mathematics, Statistics and Computer Science
University of New England, Armidale NSW 2351 Australia
nkn at turing.une.edu.au Tel: +612 6773 2763
http://turing.une.edu.au/~nkn Fax: +612 6773 3312
Please convert Word files to PDF files before sending them to me.
See http://www.gnu.org/philosophy/no-word-attachments.html