The R Project SVN R

Rev

Rev 68948 | Rev 85981 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68948 Rev 75012
Line 1... Line 1...
1 
% File src/library/stats/man/quade.test.Rd
 1 
% File src/library/stats/man/quade.test.Rd
2 
% Part of the R package, https://www.R-project.org
 2 
% Part of the R package, https://www.R-project.org
3 
% Copyright 1995-2013 R Core Team
 3 
% Copyright 1995-2018 R Core Team
4 
% Distributed under GPL 2 or later
 4 
% Distributed under GPL 2 or later
5 
 
 5 
 
6 
\name{quade.test}
 6 
\name{quade.test}
7 
\alias{quade.test}
 7 
\alias{quade.test}
8 
\alias{quade.test.default}
 8 
\alias{quade.test.default}
Line 93... Line 93...
93 
            nrow = 7, byrow = TRUE,
 93 
            nrow = 7, byrow = TRUE,
94 
            dimnames =
 94 
            dimnames =
95 
            list(Store = as.character(1:7),
 95 
            list(Store = as.character(1:7),
96 
                 Brand = LETTERS[1:5]))
 96 
                 Brand = LETTERS[1:5]))
97 
y
 97 
y
98 
quade.test(y)
 98 
(qTst <- quade.test(y))
- 
 
 99 
 
- 
 
 100 
## Show equivalence of different versions of test :
- 
 
 101 
utils::str(dy <- as.data.frame(as.table(y)))
- 
 
 102 
qT. <- quade.test(Freq ~ Brand|Store, data = dy)
- 
 
 103 
qT.$data.name <- qTst$data.name
- 
 
 104 
stopifnot(all.equal(qTst, qT., tolerance = 1e-15))
- 
 
 105 
dys <- dy[order(dy[,"Freq"]),]
- 
 
 106 
qTs <- quade.test(Freq ~ Brand|Store, data = dys)
- 
 
 107 
qTs$data.name <- qTst$data.name
- 
 
 108 
stopifnot(all.equal(qTst, qTs, tolerance = 1e-15))
99 
}
 109 
}
100 
\keyword{htest}
 110 
\keyword{htest}