tests/testthat/test_king2mat.R

context("king2mat tests")

test_that("king2mat", {
	kinfile <- system.file("extdata", "MXL_ASW.kin", package="GENESIS")
	kin0file <- system.file("extdata", "MXL_ASW.kin0", package="GENESIS")

	expect_error(king2mat(kin0file, kinfile, iids = 1:100), "Some of the provided iids are not in the KING output")
})

Try the GENESIS package in your browser

Any scripts or data that you put into this service are public.

GENESIS documentation built on Aug. 3, 2018, 6 p.m.