## Not run:
#
# # download the proteome of Arabidopsis thaliana from refseq
# # and store the corresponding proteome file in '_ncbi_downloads/proteomes'
# getProteome( db = "refseq",
# kingdom = "plant",
# organism = "Arabidopsis thaliana",
# path = file.path("_ncbi_downloads","proteomes") )
#
#
# file_path <- file.path("_ncbi_downloads","proteomes","Arabidopsis_thaliana_protein.faa.gz")
# Ath_proteome <- read_proteome(file_path, format = "fasta")
#
# # download the proteome of Arabidopsis thaliana from genbank
# # and store the corresponding proteome file in '_ncbi_downloads/proteomes'
# getProteome( db = "genbank",
# kingdom = "plant",
# organism = "Arabidopsis thaliana",
# path = file.path("_ncbi_downloads","proteomes") )
#
#
# file_path <- file.path("_ncbi_downloads","proteomes","Arabidopsis_thaliana_protein.faa.gz")
# Ath_proteome <- read_proteome(file_path, format = "fasta")
# ## End(Not run)
Run the code above in your browser using DataLab