[R] Suppressing observation numbers
Nam-Ky Nguyen
nkn at turing.une.edu.au
Wed Mar 2 23:14:28 CET 2005
Dear R gurus,
Below is a part of the R output. Please consider the two lines:
> data
> model.matrix(m1)
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)?
Regards,
NKN
> # 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
More information about the R-help
mailing list