Displaying 2 results from an estimated 2 matches for "nredcel".
Did you mean:
redcell
2018 May 20
1
How to average values from grid cells with coordinates
...will be centered on the corners of 4 black cells
lat2<-rep(seq(28.5,34.5,by=2),4)
lon2<-rep(seq(99.5,105.5,by=2),each=4)
redcells<-data.frame(lat=lat2,lon=lon2,value=NA)
display the red cells
rect(lon2-1,lat2-1,lon2+1,lat2+1,border="red",lwd=2)
nblackcells<-dim(blackcells)[1]
nredcells<-dim(redcells)[1]
for(redcell in 1:nredcells) {
close4<-rep(NA,4)
closen<-1
for(blackcell in 1:nblackcells) {
if(abs(blackcells[blackcell,"lat"]-redcells[redcell,"lat"]) < 1 &&
abs(blackcells[blackcell,"lon"]-redcells[redcell,"lon&quo...
2018 May 22
0
How to average values from grid cells with coordinates
...4 black cells
> lat2<-rep(seq(28.5,34.5,by=2),4)
> lon2<-rep(seq(99.5,105.5,by=2),each=4)
> redcells<-data.frame(lat=lat2,lon=lon2,value=NA)
> display the red cells
> rect(lon2-1,lat2-1,lon2+1,lat2+1,border="red",lwd=2)
> nblackcells<-dim(blackcells)[1]
> nredcells<-dim(redcells)[1]
> for(redcell in 1:nredcells) {
> close4<-rep(NA,4)
> closen<-1
> for(blackcell in 1:nblackcells) {
> if(abs(blackcells[blackcell,"lat"]-redcells[redcell,"lat"]) < 1 &&
> abs(blackcells[blackcell,"lon"]-...