# suggested to install blast+ software
# \donttest{
# it will take a long time without blast+ software
data(Sample_ID_data)
if(requireNamespace("Biostrings", quietly = TRUE)){
out.folder = tempdir();
write.table(Sample_ID_data$db1,file.path(out.folder,"db1.fasta"),
quote = FALSE,row.names = FALSE, col.names = FALSE);
write.table(Sample_ID_data$db2,file.path(out.folder,"db2.fasta"),
quote = FALSE,row.names = FALSE, col.names = FALSE);
write.table(Sample_ID_data$pginf,
file = file.path(out.folder,"proteingroups.txt"),
quote = FALSE,
sep = "\t",dec = ".", row.names = FALSE, col.names = TRUE )
Maxdata <- MaxQdataconvert(file.path(out.folder,"proteingroups.txt"),
IDtype = "MaxQ",
db1.path = file.path(out.folder,"db1.fasta"),
db2.path = file.path(out.folder,"db2.fasta"),
out.folder = out.folder,
blast.path = NULL)
file.remove( file.path(out.folder,"db1.fasta"),
file.path(out.folder,"db2.fasta"),
file.path(out.folder,"proteingroups.txt") )
}
# }
Run the code above in your browser using DataLab