sd1gen: sd1gen

In ISAAKiel/pathAAR: Pathes in Archaeology

Description

Factor defining size of first Kernel

Usage

sd1gen(pppm, f_sd1 = 4)

Arguments

pppm	PointPattern Object of Data
f_sd1	factor scaling the mean of nearest neighbourhoud

Details

Factor defining size of the first Kernel, which generates the stucture of dynamic Kernel

Value

list containg two numeric

Author(s)

Franziska Faupel <[e-mail]>

Oliver Nakoinz <[e-mail]>

Hendrik Raese <[e-mail]>

Examples

# Crating Test Data Randomly
testmatrix <- data.frame(x = abs(rnorm(100)*50), y = abs(rnorm(100)*50))
# Setting geographical frame
xmin    <- 0
xmax    <- max(testmatrix$x)
ymin    <- 0
ymax    <- max(testmatrix$y)
ext_ai <- raster::extent(xmin, xmax, ymin, ymax)

sv <- (xmax-xmin)/(ymax-ymin)
rw     <- 10   # width of raster defined in m

rows  <- round((ymax-ymin)/rw, 0) + 1                                    
colums <- round((xmax-xmin)/rw, 0) + 1                                      
v <- cbind(1:(colums*rows))                                              
df <- data.frame(v)                                                         
gt      <- sp::GridTopology(c(xmin, ymin), c(rw, rw), c(colums, rows))
sgdf    <- sp::SpatialGridDataFrame(gt, df)

pppm <- spatstat::ppp(testmatrix[,1], testmatrix[,2], 
                       window = spatstat::owin(
                       xrange=c(sgdf@bbox[1,1],sgdf@bbox[1,2]),
                       yrange=c(sgdf@bbox[2,1],sgdf@bbox[2,2]), 
                       unitname="m"))
                       
f_sd1 <- sd1gen(pppm)

ISAAKiel/pathAAR documentation built on Sept. 7, 2021, noon