Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.