R/warp.R

warp <-
function(A,Lambda,R1,R2,x)
{
Wx <- x
for (i in 1:length(A))
    	{
	warp <- comp(A[i],Lambda[i],R1[i],R2[i],Wx)
	Wx <- warp$Wx
	}
return(Wx)
}

Try the MRwarping package in your browser

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

MRwarping documentation built on May 2, 2019, 2:13 a.m.