seq_alignment = function(sequence) { shell("del /f my_needle_file") for (i in 1:length(sequences[,1])) { cat(as.character(paste(">", as.vector(sequences[i,1]), sep="")), as.character(as.vector(sequences[i,6])), file = "file1", sep = "\n") for(j in 1:length(sequences[,1])) { cat(as.character(paste(">", as.vector(sequences[i,1]), sep="")), as.character(as.vector(sequences[i,6])), file = "file2", sep = "\n") shell("needle file1 file2 stdout -gapopen 10.0 -gapextend 0.5 >> my_needle_file") } } #提示结果 cat("Needle程序完成所有序列的两两比对,结果存入文件\"my_needle_file\"\n") }
时间: 2024-01-03 18:05:21 浏览: 87
seq_file proc 文件系统的实现
这段代码看起来像是一个用R语言编写的序列比对的函数。该函数接受一个序列作为输入,然后使用needle程序进行该序列与其他所有序列的两两比对,并将比对结果存储在名为"my_needle_file"的文件中。在这个过程中,该函数使用了shell命令来调用needle程序。最后,该函数输出一个提示,告诉用户比对结果已经存储在文件中。
阅读全文