R/calcMedBasisDim.R

calcMedBasisDim <-
function(bicMat, basis_seq = seq(3,51,2)){
	optBasisDim 	<- basis_seq[median((apply(bicMat, 2, which.min)))]
	return(optBasisDim)
}
stefanrameseder/PartiallyFD documentation built on May 29, 2019, 9:50 a.m.