/usr/bin/env Rscriptsetwd("Bin_all/Bin_summary/")data=read.table("N50.N90.txt",header=F)BinID=vector()N50=vector()N90=vector()index=seq(from=1,to=length(data[,1]),by=3)a=1for(iinindex){BinID[a]=as.character(data[i,"V1"])N50[a]=as.character(data[i+1,"V1"])N90[a]=...