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 44 45 46 47 48 49 50 51 52
|
## test C interfaces
library(proxy)
set.seed(20070630)
x <- as.dist(matrix(runif(25),5,5))
x
attributes(x)
z <- .Call(proxy:::R_subset_dist, x, 3)
z
unclass(z)
.Call(proxy:::R_subset_dist, x, c(1,3,5))
attr(x, "Labels") <- LETTERS[1:5]
z <- .Call(proxy:::R_subset_dist, x, c("A","C","E"))
z
attributes(z)
attr(x, "Labels") <- NULL
.Call(proxy:::R_rowSums_dist, x, FALSE)
.Call(proxy:::R_rowSums_dist, z, FALSE)
.Call(proxy:::R_row_dist, x, FALSE) # row()
.Call(proxy:::R_row_dist, x, TRUE) # col()
## test R interfaces
dim(x)
dimnames(x) <- letters[1:5]
dimnames(x)
names(x) <- LETTERS[1:5]
names(x)
row.dist(x)
col.dist(x)
subset(x, c(1,3,5))
x[[c(1,3,5)]]
x[c(1,3,5)] # as usual
x[[-1]] # drop subscripts
x[[1]] # empty
###
|