Aproximación Inicial a la Manipulación de Archivos DICOM

Para manipular archivos en el protocolo DICOM estaremos utilizando el paquete oro.dicom.

Leyendo los archivos inicialmente.

library(oro.dicom)
dcmImg2 <- readDICOM("~/GENER/tesis/data/IMG2", verbose = TRUE, recursive = FALSE, exclude = "sql")

  1 files to be processed by readDICOM()

  |                                                                                                       
  |                                                                                                 |   0%
  |                                                                                                       
  |=================================================================================================| 100%

Exploración Inicial de los Metadatos

dcm.info <- dicomTable(dcmImg2$hdr)
names(dcm.info)

  [1] "0002-0000-GroupLength"                             
  [2] "0002-0001-FileMetaInformationVersion"              
  [3] "0002-0002-MediaStorageSOPClassUID"                 
  [4] "0002-0003-MediaStorageSOPInstanceUID"              
  [5] "0002-0010-TransferSyntaxUID"                       
  [6] "0002-0012-ImplementationClassUID"                  
  [7] "0002-0013-ImplementationVersionName"               
  [8] "00028-3002-LUTDescriptor"                          
  [9] "0008-0005-SpecificCharacterSet"                    
 [10] "0008-0008-ImageType"                               
 [11] "0008-0016-SOPClassUID"                             
 [12] "0008-0018-SOPInstanceUID"                          
 [13] "0008-0020-StudyDate"                               
 [14] "0008-0023-ContentDate"                             
 [15] "0008-0030-StudyTime"                               
 [16] "0008-0033-ContentTime"                             
 [17] "0008-0050-AccessionNumber"                         
 [18] "0008-0060-Modality"                                
 [19] "0008-0068-PresentationIntentType"                  
 [20] "0008-0070-Manufacturer"                            
 [21] "0008-0080-InstitutionName"                         
 [22] "0008-0081-InstitutionAddress"                      
 [23] "0008-0090-ReferringPhysiciansName"                 
 [24] "0008-1010-StationName"                             
 [25] "0008-1030-StudyDescription"                        
 [26] "0008-103E-SeriesDescription"                       
 [27] "0008-1040-InstitutionalDepartmentName"             
 [28] "0008-1070-OperatorsName"                           
 [29] "0008-1090-ManufacturersModelName"                  
 [30] "0008-2218-0008-0100-CodeValue"                     
 [31] "0008-2218-0008-0102-CodingSchemeDesignator"        
 [32] "0008-2218-0008-0104-CodeMeaning"                   
 [33] "0008-2218-AnatomicRegionSequence"                  
 [34] "0008-2218-FFFE-E000-Item"                          
 [35] "0010-0010-PatientsName"                            
 [36] "0010-0020-PatientID"                               
 [37] "0010-0030-PatientsBirthDate"                       
 [38] "0010-0040-PatientsSex"                             
 [39] "0010-1010-PatientsAge"                             
 [40] "0018-0010-ContrastBolusAgent"                      
 [41] "0018-0015-BodyPartExamined"                        
 [42] "0018-1000-DeviceSerialNumber"                      
 [43] "0018-1020-SoftwareVersions"                        
 [44] "0018-1030-ProtocolName"                            
 [45] "0018-1147-FieldOfViewShape"                        
 [46] "0018-1149-FieldOfViewDimensions"                   
 [47] "0018-1164-ImagerPixelSpacing"                      
 [48] "0018-1405-RelativeXrayExposure"                    
 [49] "0018-1508-PositionerType"                          
 [50] "0018-1600-ShutterShape"                            
 [51] "0018-1620-VerticesOfThePolygonalShutter"           
 [52] "0018-6000-Sensitivity"                             
 [53] "0018-7004-DetectorType"                            
 [54] "0018-7005-DetectorConfiguration"                   
 [55] "0018-700A-DetectorID"                              
 [56] "0018-7010-ExposuresonDetectorSinceLastCalibration" 
 [57] "0018-7011-ExposuresonDetectorSinceManufactured"    
 [58] "0018-7012-DetectorTimeSinceLastExposure"           
 [59] "0018-7016-DetectorActivationOffsetFromExposure"    
 [60] "0018-7030-FieldOfViewOrigin"                       
 [61] "0018-7032-FieldOfViewRotation"                     
 [62] "0018-7034-FieldOfViewHorizontalFlip"               
 [63] "0020-000D-StudyInstanceUID"                        
 [64] "0020-000E-SeriesInstanceUID"                       
 [65] "0020-0010-StudyID"                                 
 [66] "0020-0011-SeriesNumber"                            
 [67] "0020-0012-AcquisitionNumber"                       
 [68] "0020-0013-InstanceNumber"                          
 [69] "0020-0020-PatientOrientation"                      
 [70] "0020-0060-Laterality"                              
 [71] "0028-0002-SamplesperPixel"                         
 [72] "0028-0004-PhotometricInterpretation"               
 [73] "0028-0010-Rows"                                    
 [74] "0028-0011-Columns"                                 
 [75] "0028-0030-PixelSpacing"                            
 [76] "0028-0100-BitsAllocated"                           
 [77] "0028-0101-BitsStored"                              
 [78] "0028-0102-HighBit"                                 
 [79] "0028-0103-PixelRepresentation"                     
 [80] "0028-0300-QualityControlImage"                     
 [81] "0028-0301-BurnedInAnnotation"                      
 [82] "0028-1040-PixelIntensityRelationship"              
 [83] "0028-1041-PixelIntensityRelationshipSign"          
 [84] "0028-1052-RescaleIntercept"                        
 [85] "0028-1053-RescaleSlope"                            
 [86] "0028-1054-RescaleType"                             
 [87] "0028-2110-LossyImageCompression"                   
 [88] "0028-3010-0028-3006-LUTData"                       
 [89] "0028-3010-FFFE-E000-Item"                          
 [90] "0028-3010-VOILUTSequence"                          
 [91] "0031-0010-Unknown"                                 
 [92] "0031-10FF-Unknown"                                 
 [93] "0040-0244-PerformedProcedureStepStartDate"         
 [94] "0040-0245-PerformedProcedureStepStartTime"         
 [95] "0040-0253-PerformedProcedureStepID"                
 [96] "0040-0254-PerformedProcedureStepDescription"       
 [97] "0040-0260-0040-0302-EntranceDose"                  
 [98] "0040-0260-0040-0303-ExposedArea"                   
 [99] "0040-0260-0040-0555-2050-0020-PresentationLUTShape"
[100] "0040-0260-0040-0555-7FE0-0010-PixelData"           
[101] "0040-0260-0040-0555-AcquisitionContextSequence"    
[102] "0040-0260-2050-0020-PresentationLUTShape"          
[103] "0040-0260-7FE0-0010-PixelData"                     
[104] "0040-0260-PerformedProtocolCodeSequence"           
[105] "0040-0302-EntranceDose"                            
[106] "0040-0303-ExposedArea"                             
[107] "0040-0555-2050-0020-PresentationLUTShape"          
[108] "0040-0555-7FE0-0010-PixelData"                     
[109] "0040-0555-AcquisitionContextSequence"              
[110] "2050-0020-PresentationLUTShape"                    
[111] "7FE0-0010-PixelData"                               

Tipo de Imagen

unique(dcm.info["0008-0090-ReferringPhysiciansName"])

Imagen

image(t(dcmImg2$img[[1]]),
      col = grey(seq(1, 0, length = 256)),
      axes = FALSE, xlab = "", ylab = "",
      main = "Lateral de Columna Cervical")

PENDIENTES

• Saber cámo proyectar la imagen manteniendo las proporciones originales.
• Reduccián de dimensionalidad en quá fase del PDI?