LinearRemapperMain <-
function(positions, OriginX, OriginY, OriginZ, mutation.data){
distance.from.origin <- calcdistance(positions, OriginX, OriginY, OriginZ)
remapping<- sortpositions(distance.from.origin, mutation.data)
return(remapping)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.