fix bug in calling gls method

wzhy2000 · Feb 5, 2018 · 77f6f6d · 77f6f6d
1 parent 20a5f09
commit 77f6f6d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 52 deletions.
diff --git a/pkg/R/fg.gls.R b/pkg/R/fg.gls.R
@@ -103,7 +103,8 @@ gls.fgwas <- function( sect.idx, snp.idx, snp.mat, pheY, pheZ, pheX=NULL, interc
 
 	cpu.fun<-function( sect )
 	{
-		requireNamespace("nlme");
+		## !dont use requireNamespace()
+		library("nlme");
 
 		if( (sect-1)*n.percpu+1 > NROW(snp.mat) )
 			return(NULL);

diff --git a/test/fg_bmi.R b/test/fg_bmi.R