tests/testthat/test-04-StructureOpts.R

In jeffreyhanson/structurer: Structure Analysis in R

context('StructureOpts')

test_that('StructureOpts', {
	# tests implicit
	x <- StructureOpts(MAXPOPS=2, BURNIN=10000, NUMREPS=20000, NOADMIX=FALSE, ADMBURNIN=500, SEED=1:2, FREQSCORR=TRUE)
	# methods
	print(x)
	x
})