/usr/lib/R/site-library/graph/Scripts/pTreetest.R is in r-bioc-graph 1.56.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | library(methods)
.initpTreeClass(globalenv())
pT1 <- new("pTree")
npT<-pTreeInsert(pT1, "a", 10)
objs <- letters[1:12]
vals<-c(2, 14, 7, 21, 16, 18, 11, 1, 25, 3, 8, 5)
for( i in 1:12)
npT <- pTreeInsert(npT, objs[i], vals[i])
unlist(npT@values)
xx<-pTreeDelete(npT, "d")
|