install.packages("alphahull")
head(as
)
str(as)
head(ukoch)
plot(ah)
plot(as)
?ashape
p
n
d
d[1,]
Q
c
c
n
label.positions
n
c
d
labs
n
type
traceback()
x
units
c
traceback()
n
n
Q
n
n
col.text
n
n
g
n
n
g
col.text
Q
Q
str(as)
lsegments
as$edges
with(as$edges,lsegments(x1,y1,x2,y2))
lsegments
str(as$edges)
with(as.data.frame(as$edges),lsegments(x1,y1,x2,y2))
visualcenter
visualcenter(d)
Q
big.boxes
centers
Q
c
centers
centers$groups
centers$top
centers$bottom
centers$w
with(centers,cbind(w,h))
apply(with(centers,cbind(w,h)),1,max)
mean(centers[,c("w","h")])
mean(unlist(centers[,c("w","h")]))
n
closepts
centers
closepts$x-centers$x
closepts$y-centers$y
Q
dldoc()
library(inlinedocs)
dldoc()
p
plot(1)
p
p
smart.grid
empty.grid
warnings()
data.frame
