# selection of normal samples "NT"
barcode <- c("TCGA-B0-4698-01Z-00-DX1","TCGA-CZ-4863-02Z-00-DX1")
# Returns the second barcode
TCGAquery_SampleTypes(barcode,"TR")
# Returns both barcode
TCGAquery_SampleTypes(barcode,c("TR","TP"))
Run the code above in your browser using DataLab