seg<- make_tree(3, mode = "undirected")
seg<- set.vertex.attribute(seg, "name", V(seg), letters[1:3])
X<- matrix(rnorm(5*3), 5, 3) # create the dataset just to create the Tree object
colnames(X)<- letters[1:3]
tobj<- Tree(seg, X)
eks<- EKS(seg)
# assign any parameters, in practice these should be the estimates from the ECE
eks<- setParams(eks, c(0.1, 0.2, 0.3))
tup<- Tuples()
x<- rep(1, vcount(seg))
names(x)<- getNodesWithData(tobj)
coord<- evalPoints(tup, tobj, x)
# suppose that the estimates in deParams are obtained for k=100
confInt(eks, coord, 100)
Run the code above in your browser using DataLab