Boa tarde Pessoal, Estou quebrando a cabeça em um desafio natalino e gostaria de compartilhar o desafio com vocês, tenho uma imagem simulada stackIm1, sobre a qual lancei pontos aleatórios position.parc que são o centro de parcelas circulares CIR de 5 de raio, sendo meu CRM: require(raster) require(spatstat) require(sp) ##Criando um raster ----------------------------------------------------------- r <- raster(nc=100, nr=100) set.seed(20130622) stackIm1 <- stack(lapply(1, function(x) setValues(r, round(runif(ncell(r))* 255)))) plot(stackIm1) # ## Criando 15 pontos amostrais ------------------------------------------------- att.Im1<-as(stackIm1, "SpatialGridDataFrame") df.Im1<-as.data.frame(att.Im1) colnames(df.Im1)<-c("px","x","y") gridded(df.Im1) = ~x+y position.parc<-spsample(df.Im1,15, type="random") points(position.parc, col="red",pch=20) # #Criar as parcelas circulares em torno do ponto amostral com 5 de raio # CIR <- vector("list",length(position.parc$x)) for(i in 1:length(position.parc$x)) CIR[[i]] <- disc(radius=5, centre=c(position.parc$x[i],position.parc$y[i])) # Gostaria de alguma luz para selecionar as informações("px","x","y") para os pixels contidos no interior de cada parcela circular CIR na imagem stackIm1. Obrigado, -- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================