R/pairscan.noKin.R

Defines functions pairscan.noKin

Documented in pairscan.noKin

pairscan.noKin <-
function(data.obj, pheno.mat, geno.mat, covar.table, paired.markers, n.perm, verbose, n.cores = NULL){

	num.pheno <- dim(pheno.mat)[2]

	results.list <- vector(mode = "list", length = num.pheno)
	names(results.list) <- colnames(pheno.mat)


	for(p in 1:num.pheno){ 
		if(verbose){
			cat("\nScanning phenotype ", colnames(pheno.mat)[p], ":\n", sep = "")
			}
		pairscan.results <- one.pairscan.parallel(data.obj, phenotype.vector = pheno.mat[,p], genotype.matrix = geno.mat, covar.vector = covar.table, paired.markers = paired.markers, n.perm = 0, verbose = verbose, n.cores = n.cores)
		results.list[[p]] <- lapply(pairscan.results[[1]], function(x) apply(x, 2, as.numeric))
		} #end looping over phenotypes

	return(results.list)
	
	
	}

Try the cape package in your browser

Any scripts or data that you put into this service are public.

cape documentation built on May 2, 2019, 3:27 a.m.