R/get.order.R

"get.order"<-
function(DM){
						N <- nrow(DM)
						AM <- rep(-1,4*((N*(N-1))^2))
						avec <- 
									.C("getorder",#getorder(int *AM, double *D, int *N)
										arg1 = as.integer(AM),
										arg2 = as.double(DM),
										arg3 = as.integer(N)
									)$arg1
						A <- matrix(avec,
									byrow=TRUE,
									ncol =4
								)
						return(A[1:( length(which(avec>-1))/4 ),])
					}

Try the loe package in your browser

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

loe documentation built on May 2, 2019, 3:28 a.m.