library(Biostrings)                    #pbP[W̓ǂݍ

###  Step 1  ###
in_f <- "out_contig.fa"                #̓t@Cw肵in_fɊi[
fasta <- readDNAStringSet(in_f, format="fasta")#in_fŎw肵t@C̓ǂݍ
length(fasta)                          #z񐔂\

###  Step 2  ###
in_f <- "out_scaffold.fa"              #̓t@Cw肵in_fɊi[
fasta <- readDNAStringSet(in_f, format="fasta")#in_fŎw肵t@C̓ǂݍ
length(fasta)                          #z񐔂\

###  Step 3  ###
in_f <- "out_gapClosed.fa"             #̓t@Cw肵in_fɊi[
fasta <- readDNAStringSet(in_f, format="fasta")#in_fŎw肵t@C̓ǂݍ
length(fasta)                          #z񐔂\
