```
data(simdat)
# grid weights
Q <- quadscheme(simdat)
Q <- quadscheme(simdat, method="grid")
Q <- quadscheme(simdat, nd=50) # 1 dummy point per tile
Q <- quadscheme(simdat, ntile=25, nd=50) # 4 dummy points per tile
# Dirichlet weights
Q <- quadscheme(simdat, method="dirichlet", exact=FALSE)
# random dummy pattern
D <- runifpoint(250, simdat$window)
Q <- quadscheme(simdat, D, method="dirichlet", exact=FALSE)
# polygonal window
data(demopat)
X <- unmark(demopat)
Q <- quadscheme(X)
# mask window
X$window <- as.mask(X$window)
Q <- quadscheme(X)
```

Run the code above in your browser using DataCamp Workspace