File: util.R

package info (click to toggle)
r-cran-proxy 0.4-27-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 372 kB
  • sloc: ansic: 1,247; sh: 12; makefile: 5
file content (52 lines) | stat: -rwxr-xr-x 842 bytes parent folder | download | duplicates (2)
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

###