pkgname <- "semtree"
source(file.path(R.home("share"), "R", "examples-header.R"))
options(warn = 1)
library('semtree')

base::assign(".oldSearch", base::search(), pos = 'CheckExEnv')
base::assign(".old_wd", base::getwd(), pos = 'CheckExEnv')
cleanEx()
nameEx("proximity")
### * proximity

flush(stderr()); flush(stdout())

### Name: proximity
### Title: Compute proximity matrix
### Aliases: proximity

### ** Examples

nodeids <- structure(c(9, 3, 5, 7, 10, 4, 6, 8, 9, 3, 5, 7, 10, 4, 6, 8),
.Dim = c(4L, 4L))
class(nodeids) <- "semforest_node_id"
sims <- proximity(nodeids)
dd <- as.dist(1-sims)
hc <- hclust(dd)
groups <- cutree(hc, 2)



cleanEx()
nameEx("semtree.control")
### * semtree.control

flush(stderr()); flush(stdout())

### Name: semtree.control
### Title: SEM Tree Control Object
### Aliases: semtree.control print.semtree.control

### ** Examples



	# create a control object with an alpha level of 1%
	my.control <- semtree.control(alpha=0.01)

	# set the minimum number of cases per node to ten
	my.control$min.N <- 10
	
	# print contents of the control object
	print(my.control)





cleanEx()
nameEx("strip")
### * strip

flush(stderr()); flush(stdout())

### Name: strip
### Title: Retain only basic tree structure
### Aliases: strip

### ** Examples

## Not run: 
##D if(interactive()){
##D  #EXAMPLE1
##D  }
## End(Not run)



### * <FOOTER>
###
cleanEx()
options(digits = 7L)
base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
grDevices::dev.off()
###
### Local variables: ***
### mode: outline-minor ***
### outline-regexp: "\\(> \\)?### [*]+" ***
### End: ***
quit('no')