R/get_weight_zp.R

get_weight_zp <-
function(zscore, pvalue, pvalue_threshold)
{
	weight=rep(0, length(zscore))
	weight[pvalue<=pvalue_threshold & zscore>0]=1
	weight[pvalue<=pvalue_threshold & zscore<0]=-1
	weight
}

Try the HDDesign package in your browser

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

HDDesign documentation built on May 2, 2019, 6:41 a.m.