package fdim slopeopt error (PR#6819)

Full_Name: Fred J.
Version: 1.8.1
OS: windows 2000
Submission from: (NULL) (203.26.24.216)


platform i386-pc-mingw32

the error can be duplicated as follows

rt <- data.frame(8:15, 7:14, 6:13, 5:12, 4:11, 3:10, 2:9, 1:8)
library(fdim)
FD <- (fdim(rt,q=2))

Error in slopeopt(AllPoints, Alpha) : Object "LineP" not found