... | ... |
@@ -1,7 +1,7 @@ |
1 | 1 |
fmerge <- |
2 | 2 |
function(fl1,fl2,ID1,ID2,A="",B="",method="No"){ |
3 |
-fl1<-DataFrame(fl1) |
|
4 |
-fl2<-DataFrame(fl2) |
|
3 |
+fl1<-as.data.frame(fl1) |
|
4 |
+fl2<-as.data.frame(fl2) |
|
5 | 5 |
try (if(is.null(dim(fl1))|is.null(dim(fl2))) |
6 | 6 |
stop("No data to be merged") |
7 | 7 |
) |
... | ... |
@@ -36,6 +36,6 @@ merge.dat<-cbind(as.data.frame(fl1.new),as.data.frame(fl2.new)) |
36 | 36 |
mergdata<-merge.dat[,-"SNPID2"] |
37 | 37 |
} |
38 | 38 |
mergdata<-merge.dat[,-1] |
39 |
-mergdata<-DataFrame(mergdata) |
|
39 |
+mergdata<-as.data.frame(mergdata) |
|
40 | 40 |
return(mergdata) |
41 | 41 |
} |