## The function is currently defined as
function (coords,dim,xmin=min(coords[,1]),xmax=max(coords[,1]),ymin=min(coords[,2]),ymax=max(coords[,2])){
xints<-((xmax-xmin)/dim);
yints<-((ymax-ymin)/dim);
xbins<-seq(from=xmin, to=xmax-xints, by=xints);
ybins<-seq(from=ymin, to=ymax-yints, by=yints);
bins<-cbind(c(sapply(xbins,rep,dim)), rep(ybins,dim));
cnts<-matrix(apply(bins,1,belongtoint,vect=coords,int.x=xints,int.y=yints),nrow=dim,byrow=TRUE);
}
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(GriegSmith)
Loading required package: spatstat
Loading required package: nlme
Loading required package: rpart
spatstat 1.45-2 (nickname: 'Caretaker Mode')
For an introduction to spatstat, type 'beginner'
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/GriegSmith/sums.Rd_%03d_medium.png", width=480, height=480)
> ### Name: sums
> ### Title: sums
> ### Aliases: sums
> ### Keywords: ~kwd1 ~kwd2
>
> ### ** Examples
>
>
> ## The function is currently defined as
> function (coords,dim,xmin=min(coords[,1]),xmax=max(coords[,1]),ymin=min(coords[,2]),ymax=max(coords[,2])){
+
+
+ xints<-((xmax-xmin)/dim);
+ yints<-((ymax-ymin)/dim);
+
+ xbins<-seq(from=xmin, to=xmax-xints, by=xints);
+ ybins<-seq(from=ymin, to=ymax-yints, by=yints);
+
+
+
+ bins<-cbind(c(sapply(xbins,rep,dim)), rep(ybins,dim));
+ cnts<-matrix(apply(bins,1,belongtoint,vect=coords,int.x=xints,int.y=yints),nrow=dim,byrow=TRUE);
+
+
+ }
function (coords, dim, xmin = min(coords[, 1]), xmax = max(coords[,
1]), ymin = min(coords[, 2]), ymax = max(coords[, 2]))
{
xints <- ((xmax - xmin)/dim)
yints <- ((ymax - ymin)/dim)
xbins <- seq(from = xmin, to = xmax - xints, by = xints)
ybins <- seq(from = ymin, to = ymax - yints, by = yints)
bins <- cbind(c(sapply(xbins, rep, dim)), rep(ybins, dim))
cnts <- matrix(apply(bins, 1, belongtoint, vect = coords,
int.x = xints, int.y = yints), nrow = dim, byrow = TRUE)
}
>
>
>
>
>
> dev.off()
null device
1
>