tests/testthat/test_image_import_nifti.R

context("NIfTI")

test_that("NIfTI import", {

  # NIfTI image data to 3D matrix
  expect_error(img_data_to_3D_mat(nifti_data_filtered_func, coord_extra_dim = 181))
  expression_try(nifti_data_filtered_func, expect_equal(dim(img_data_to_3D_mat(nifti_data_filtered_func, coord_extra_dim = 180)), c(64, 64, 21)))
  expect_error(img_data_to_3D_mat(nifti_data_filtered_func, coord_extra_dim = NULL))
  expression_try(nifti_data_filtered_func, expect_equal(dim(img_data_to_3D_mat(nifti_data_filtered_func, coord_extra_dim = c(180))), c(64, 64, 21)))
  expect_error(img_data_to_3D_mat(nifti_data_filtered_func, coord_extra_dim = c(1,1)))
  expect_error(img_data_to_3D_mat(nifti_data_filtered_func))
  expect_error(img_data_to_3D_mat(nifti_data_avg152T1_LR, coord_extra_dim = 5))
  expect_error(img_data_to_3D_mat(nifti_data_avg152T1_LR, coord_extra_dim = c(1,1)))
  expression_try(nifti_data_avg152T1_LR, expect_equal(dim(img_data_to_3D_mat(nifti_data_avg152T1_LR)), c(91, 109, 91)))

  # NIfTI image data to matrix
  expression_try(nifti_data_filtered_func, expect_equal(dim(img_data_to_mat(nifti_data_filtered_func)), c(64, 64, 21, 180)))
  expression_try(nifti_data_avg152T1_LR, expect_equal(dim(img_data_to_mat(nifti_data_avg152T1_LR)), c(91, 109, 91)))
  expression_try(sample_nifti_img, expect_equal(dim(img_data_to_mat(sample_nifti_img)), c(64,64,10)))

  # nifti_data_1103_3
  expression_try(nifti_data_1103_3, expect_equal(dim(img_data_to_mat(nifti_data_1103_3)), c(256,256,332)))
  expression_try(nifti_data_1103_3, expect_equal(dim(img_data_to_3D_mat(nifti_data_1103_3)), c(256,256,332)))

  # nifti_data_113_01_MPRAGE_mask
  expression_try(nifti_data_113_01_MPRAGE_mask, expect_equal(dim(img_data_to_3D_mat(nifti_data_113_01_MPRAGE_mask)), c(170,256,256)))
  expression_try(nifti_data_113_01_MPRAGE_mask, expect_equal(dim(img_data_to_mat(nifti_data_113_01_MPRAGE_mask)), c(170,256,256)))

  # nifti_data_avg152T1_LR_hi
  expression_try(nifti_data_avg152T1_LR_hi, expect_equal(dim(img_data_to_mat(nifti_data_avg152T1_LR_hi)), c(91,109,91)))

  # nifti_data_filtered_func
  expression_try(nifti_data_filtered_func, expect_equal(dim(img_data_to_3D_mat(nifti_data_filtered_func,5)), c(64,64,21)))
  expression_try(nifti_data_filtered_func, expect_equal(dim(img_data_to_mat(nifti_data_filtered_func)), c(64,64,21,180)))

  # nifti_data_flair
  expression_try(nifti_data_flair, expect_equal(dim(img_data_to_3D_mat(nifti_data_flair)), c(288,288,22)))
  expression_try(nifti_data_flair, expect_equal(dim(img_data_to_mat(nifti_data_flair)), c(288,288,22)))

  # nifti_data_JHU_MNI_SS_T1_mask
  expression_try(nifti_data_JHU_MNI_SS_T1_mask, expect_equal(dim(img_data_to_3D_mat(nifti_data_JHU_MNI_SS_T1_mask)), c(181,217,181)))
  expression_try(nifti_data_JHU_MNI_SS_T1_mask, expect_equal(dim(img_data_to_mat(nifti_data_JHU_MNI_SS_T1_mask)), c(181,217,181)))

  # nifti_data_MNI152_T1_1mm_brain
  expression_try(nifti_data_MNI152_T1_1mm_brain, expect_equal(dim(img_data_to_3D_mat(nifti_data_MNI152_T1_1mm_brain)), c(182,218,182)))

  # nifti_data_roi_regToT1_SyNtoMNI
  expression_try(nifti_data_roi_regToT1_SyNtoMNI, expect_equal(dim(img_data_to_mat(nifti_data_roi_regToT1_SyNtoMNI)), c(182,218,182)))

  # nifti_data_sirp
  expression_try(nifti_data_sirp, expect_equal(dim(img_data_to_3D_mat(nifti_data_sirp,5)), c(64,64,35)))
  expression_try(nifti_data_sirp, expect_equal(dim(img_data_to_mat(nifti_data_sirp)), c(64,64,35,147)))

  # nifti_data_t1
  expression_try(nifti_data_t1, expect_equal(dim(img_data_to_mat(nifti_data_t1)), c(512,512,22)))

  # nifti_data_t1_SyNtoMNI
  expression_try(nifti_data_t1_SyNtoMNI, expect_equal(dim(img_data_to_3D_mat(nifti_data_t1_SyNtoMNI)), c(182,218,182)))

  # nifti_data_zstat1
  expression_try(nifti_data_zstat1, expect_equal(dim(img_data_to_mat(nifti_data_zstat1)), c(64,64,21)))

})

Try the radtools package in your browser

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

radtools documentation built on May 1, 2019, 7:51 p.m.