@@ -1,8 +1,8 @@

 Package: GMRP

 Type: Package

 Title: GWAS-based Mendelian Randomization and Path Analyses

-Version: 1.8.0

-Date: 2018-05-19

+Version: 1.8.1

+Date: 2018-05-23

 Author: Yuan-De Tan

 Maintainer: Yuan-De Tan <tanyuande@gmail.com>

 Description: Perform Mendelian randomization analysis of multiple SNPs

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

 fmerge <-

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

-

+fl1<-DataFrame(fl1)

+fl2<-DataFrame(fl2)

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

    stop("No data to be merged")

    )

@@ -35,5 +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)

 return(mergdata)

 }

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

 ucscannot <-

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

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

+UCSCannot<-DataFrame(UCSCannot)	

 function_unit<-UCSCannot$function_unit

 if(is.null(function_unit)){

 stop("No function_unit found in the data")

@@ -48,7 +48,7 @@ data12 <- fmerge(fl1=data1, fl2=data2, ID1="SNP", ID2="SNP", A=".dat1", B=".dat2

 ###################################################

 data(cad.data)

-#cad <- DataFrame(cad.data)

+cad <- DataFrame(cad.data)

 cad<-cad.data

 head(cad)

@@ -57,7 +57,7 @@ head(cad)

 ###################################################

 data(lpd.data)

-#lpd <- DataFrame(lpd.data)

+lpd <- DataFrame(lpd.data)

 lpd<-lpd.data

 head(lpd)

@@ -89,14 +89,14 @@ User can take the following approach to merge all four lipid files into a data s

 <<>>=

 data(cad.data)

-#cad <- DataFrame(cad.data)

+cad <- DataFrame(cad.data)

 cad<-cad.data

 head(cad)

 @

 <<>>=

 data(lpd.data)

-#lpd <- DataFrame(lpd.data)

+lpd <- DataFrame(lpd.data)

 lpd<-lpd.data

 head(lpd)

 @