arr <- read_word16s in_file
let arr' = swap_bytes arr
let arrMRI = R.reshape mri_shape arr'
arr <- read_word16s in_file
let arr' = swap_bytes arr
let arrMRI = R.reshape mri_shape arr'
let zoom_factor = (1, scale, scale)
let out_file = "output.bmp"
arr <- read_word16s in_file
let zoom_factor = (1, scale, scale)
let out_file = "output.bmp"
arr <- read_word16s in_file
let arrSlice' = R.reshape mri_slice3d arrSlice
-- If zoom isn't being inlined we need to extract the slice before hand,
-- and convert it to the require formed.
let arrSlice' = R.reshape mri_slice3d arrSlice
-- If zoom isn't being inlined we need to extract the slice before hand,
-- and convert it to the require formed.