1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
test.formatDistData <- function() {
dat <- data.frame(distance=1:100, site=gl(5, 20),
visit=factor(rep(1:4, each=5)))
cutpt <- seq(0, 100, by=25)
y <- formatDistData(dat, "distance", "site", cutpt)
checkEqualsNumeric(y, matrix(c(20, 0, 0, 0,
5, 15, 0, 0,
0, 10, 10, 0,
0, 0, 15, 5,
0, 0, 0, 20), 5, 4, byrow=TRUE))
dat.bad <- dat
dat.bad$distance <- as.character(dat$distance)
checkException(formatDistData(dat.bad, "distance", "site", cutpt))
dat.bad <- dat
dat.bad$site <- as.character(dat$site)
y2 <- formatDistData(dat.bad, "distance", "site", cutpt)
checkEqualsNumeric(y2, matrix(c(20, 0, 0, 0,
5, 15, 0, 0,
0, 10, 10, 0,
0, 0, 15, 5,
0, 0, 0, 20), 5, 4, byrow=TRUE))
y3 <- formatDistData(dat, "distance", "site", cutpt, "visit")
checkEqualsNumeric(y3, matrix(c(
5, 0, 0, 0, 5, 0, 0, 0, 5, 0, 0, 0, 5, 0, 0, 0,
5, 0, 0, 0, 0, 5, 0, 0, 0, 5, 0, 0, 0, 5, 0, 0,
0, 5, 0, 0, 0, 5, 0, 0, 0, 0, 5, 0, 0, 0, 5, 0,
0, 0, 5, 0, 0, 0, 5, 0, 0, 0, 5, 0, 0, 0, 0, 5,
0, 0, 0, 5, 0, 0, 0, 5, 0, 0, 0, 5, 0, 0, 0, 5), 5, 16, byrow=TRUE))
effortMatrix <- matrix(ncol=4, nrow=5,c(1,0))
y4 <- formatDistData(dat, "distance","site",cutpt, "visit",effortMatrix)
checkEqualsNumeric(y4, matrix(c(
5, 0, 0, 0, NA,NA,NA,NA, 5, 0, 0, 0, NA,NA,NA,NA,
NA,NA,NA,NA, 0, 5, 0, 0, NA,NA,NA,NA, 0, 5, 0, 0,
0, 5, 0, 0, NA,NA,NA,NA, 0, 0, 5, 0, NA,NA,NA,NA,
NA,NA,NA,NA, 0, 0, 5, 0, NA,NA,NA,NA, 0, 0, 0, 5,
0, 0, 0, 5, NA,NA,NA,NA, 0, 0, 0, 5, NA,NA,NA,NA), 5, 16, byrow=TRUE))
effortMatrix <- matrix(ncol=4, nrow=5,"a")
checkException(formatDistData(dat, "distance","site",cutpt, "visit",effortMatrix))
}
|