Grafiken und Statistik in R

)
paste("n =",n.chain)
),
bty="n",
cex = 0.8
}
# points(chain.x[c(1,n.chain-1)],chain.y[c(1,n.chain-1)],col=c("red","blue"),pch=c(0,3))
if(print==TRUE) {
return(
list(
"coordinates" = chain.df,
"start" = c(xstart,ystart),
"areamm2" = areamm2,
"areapx" = areapx,
"n" = n.chain
)
)
}
}
######################################
# read chain data ( *.chc files) after Herbert Freemann 1974:
# Computer processing of line-drawing images (Computing Surveys, VoL 6, No. 1, March 1974)
# directions:
# 3 2 1
# \|/
# 4- -0
# /|\
# 5 6 7
# [Sample nema]_[Number] [X] [Y] [Area (mm2) per pixel] [Area (pixels]
# [Chain code] -1
readchain line end is seperator
){
data