# Repel points
coords <-
FFieldPtRep(coords = cbind(mtcars$wt * 100 / max(mtcars$wt),
mtcars$mpg * 100 / max(mtcars$mpg)),
rep.fact = 40)
head(mtcars)
head(coords)
# Demo
FFieldPtRepDemo()
Run the code above in your browser using DataLab