Remove superflous line in data-construction.R

This commit is contained in:
Rucknium 2021-11-01 19:29:14 +00:00 committed by GitHub
parent c8fb4c1b61
commit 3c03cb78d1
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -47,8 +47,6 @@ M.outline <- M.outline[(-1) * (which.min(M.outline$x) + 1):(which.max(M.outline$
M.outline <- M.outline[(-1) * c(1, 9), ]
M.outline <- M.outline
M.outline$x <- M.outline$x - min(M.outline$x)
M.outline$x <- M.outline$x / max(M.outline$x)