tests/testthat/test-7_sort_sequenom_df.R

context("Testing function sort_sequenom_df.R")

source("test_data_generator.R")

test_that("initialize_genotypeR produces the right class", {    

    test_data[is.na(test_data)] <- ""
    expect_equal(genotypes_data, sort_sequenom_df(genotypes_data[,c(1:2, 7, 3:6)]))

})

Try the genotypeR package in your browser

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

genotypeR documentation built on May 2, 2019, 8:25 a.m.