The R Project SVN R

Rev

Rev 68953 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68953 Rev 72133
Line 106... Line 106...
106 
common <- match(names(p1), names(p2))
 106 
common <- match(names(p1), names(p2))
107 
stopifnot(max(abs(p1 - p2[common])) <= 256*.Machine$double.eps)
 107 
stopifnot(max(abs(p1 - p2[common])) <= 256*.Machine$double.eps)
108 
stopifnot(all(is.na(p2[-common])))
 108 
stopifnot(all(is.na(p2[-common])))
109 
 
 109 
 
110 
## tests of diagnostic measures.
 110 
## tests of diagnostic measures.
- 
 
 111 
set.seed(11)
111 
x <- 1:10
 112 
x <- 1:10
112 
y <- c(rnorm(9),NA)
 113 
y <- c(rnorm(9),NA)
113 
fit <- lm(y ~ x, na.action=na.exclude)
 114 
fit <- lm(y ~ x, na.action=na.exclude)
114 
fit2 <- lm(y ~ x, subset=-10)
 115 
fit2 <- lm(y ~ x, subset=-10)
115 
 
 116