R/getwm.R

Defines functions getwm

Documented in getwm

getwm <-
function(orders,skeleton){
	d<-ncol(orders)
	s<-nrow(orders)
	alpha<-matrix(0,nrow=s,ncol=d)
	for(j in 1:s){
	alpha[j,]<-skeleton[order(orders[j,])]
}
alpha
}

Try the pocrm package in your browser

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

pocrm documentation built on Sept. 8, 2021, 5:08 p.m.