rftk: RF Toolkit

test_that("reactance - results", {
  expect_equal(c_to_x(1:10 * 1e-12, 2e9), c(-79.57747155, -39.78873577, -26.52582385, -19.89436789, -15.91549431, -13.26291192, -11.36821022, -9.947183943, -8.841941283, -7.957747155))
	expect_equal(l_to_x(1:10 * 1e-9, 2e9), c(12.56637061, 25.13274123, 37.69911184, 50.26548246, 62.83185307, 75.39822369, 87.9645943, 100.5309649, 113.0973355, 125.6637061))
	expect_equal(x_to_l(11:20, 2e9) * 1e9, c(0.875352187, 0.9549296586, 1.03450713, 1.114084602, 1.193662073, 1.273239545, 1.352817016, 1.432394488, 1.511971959, 1.591549431))
	expect_equal(x_to_c(1:10, 2e9) * 1e12, c(-79.57747155, -39.78873577, -26.52582385, -19.89436789, -15.91549431, -13.26291192, -11.36821022, -9.947183943, -8.841941283, -7.957747155))
})