这是我的代码的一部分
FindMutations <- function(dataset){
data<-as.data.frame(fread(dataset))
dbWriteTable(storiesDb, value = data, row.names = FALSE,
name = "dna_sequence", append = TRUE )
#for (i in 1:nrow(data)){
# germline <- select the germline value from ith row
# sequence <- select the sequence value from ith row
#for (j in 1:length(germline)){
# if (germline[i][j] != sequece[i][j]){
#save germline[i][j] to "from"
#save sequence[i][j] to "to"
#save j to position
#else save NULL
# }
}
# }
#}