R/get_cv_pcc.R

get_cv_pcc <-
function(alpha, cv_data, p1) 
{
	sum(sapply(1:10, get_cv_pcc_single, alpha, cv_data, p1))/length(cv_data$y)
}

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.