R/Objt.LOE.R

"Objt.LOE" <-
function(vecx, adm,P,C=1){
								N <- nrow(adm)
								X <- matrix(vecx,nrow=N,ncol=P)
								tmpD <- make.distmat(X)
								.Call("LOEobjt",
									as.double(tmpD),
									adm,
									as.double( C )
								)
							}

Try the loe package in your browser

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

loe documentation built on May 29, 2017, 4:58 p.m.