我正在与T-Locoh
合作,并且在尝试伸长时,它的效果并不像我预期的那样。
> f_10193.lhs.k15<-lhs.ellipses.add(f_10193.lhs.k15, id=NULL, k=NULL, r=NULL, a=NULL, s=NULL, hs.names=NULL, status=TRUE, beep=FALSE, save.ellipses = TRUE, existing.ellipses = c("overwrite","abort")[1])
ID.pts3916.k15.s1e-04.kmin0
Calculating enclosing ellipses
|+++++++++++++++++++++++++++++++++++++++++++++++++ | 97% ~05s
Error in solve.default(X) :
system is computationally singular: reciprocal condition number = 3.13932e-17
> traceback()
7: solve.default(X)
6: solve(X)
5: diag(t(Q) %*% solve(X) %*% Q)
4: mvee(p@Polygons[[1]]@coords[-nrow(p@Polygons[[1]]@coords), ],
plotme = FALSE, tolerance = 0.005, no.ellipse.val = 2, checks = checks)
3: FUN(X[[i]], ...)
2: pblapply(lhs[[hs.idx]][["hulls"]]@polygons, function(p) mvee(p@Polygons[[1]]@coords[-nrow(p@Polygons[[1]]@coords),
], plotme = FALSE, tolerance = 0.005, no.ellipse.val = 2,
checks = checks))
1: lhs.ellipses.add(f_10193.lhs.k15, id = NULL, k = NULL, r = NULL,
a = NULL, s = NULL, hs.names = NULL, status = TRUE, beep = FALSE,
save.ellipses = TRUE, existing.ellipses = c("overwrite",
"abort")[1])