g<- make_tree(7,3, mode="undirected")
g<- set.vertex.attribute(g, "name", V(g), letters[1:7])
data<- matrix(rnorm(10*7), 10,7)
colnames(data)<- get.vertex.attribute(g, "name", V(g))
# object without latent variables
Tree(x = g, data = data)
# object with latent variables
Tree(x = g, data = data[,-c(1,2)])
Run the code above in your browser using DataLab