# create a graph with named vertices
g<- graph(c("a", "b", "b","c", "b", "d"), directed = FALSE)
# create a HRMtree object
myobj<- HRMtree(g)
x<- c(0.1,0.2,0.3)
myobj<- setParams(myobj, x)
# create a dataset
mydata<- rHRM(myobj, 1000)
# do diagnostic on the node "b"
diagnost(myobj, mydata, "b", y = c(0.2,0.5) )
# include noise in the data
mydata<- rHRM(myobj, 1000, noise = TRUE)
diagnost(myobj, mydata, "c", y = c(0.5,0.5))
Run the code above in your browser using DataLab