mirror.data <- function(DT, plane='x'){
DT2 <- DT[get(plane)!=0]
DT2[, c(plane):= -get(plane)]
DT <- rbindlist(list(DT,DT2))
setkey(DT,x,z)
return(DT)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.