@@ -1,7 +1,7 @@

 fmerge <-

 function(fl1,fl2,ID1,ID2,A="",B="",method="No"){

-fl1<-DataFrame(fl1)

-fl2<-DataFrame(fl2)

+fl1<-as.data.frame(fl1)

+fl2<-as.data.frame(fl2)

 try (if(is.null(dim(fl1))|is.null(dim(fl2))) 

    stop("No data to be merged")

    )

@@ -36,6 +36,6 @@ merge.dat<-cbind(as.data.frame(fl1.new),as.data.frame(fl2.new))

 mergdata<-merge.dat[,-"SNPID2"]

 }

 mergdata<-merge.dat[,-1]

-mergdata<-DataFrame(mergdata)

+mergdata<-as.data.frame(mergdata)

 return(mergdata)

 }

@@ -1,6 +1,6 @@

 ucscannot <-

 function(UCSCannot,SNPn,A=3,B=1.9,C=1.3, method=1){

-UCSCannot<-DataFrame(UCSCannot)	

+UCSCannot<-as.data.frame(UCSCannot)	

 function_unit<-UCSCannot$function_unit

 if(is.null(function_unit)){

 stop("No function_unit found in the data")