Mauro,<br><br>Não sei o que pode estar ocorrendo. Estou rodando sem problemas na v3.02.<br><br>Em quinta-feira, 26 de dezembro de 2013, Mauro Sznelwar<<a href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>> escreveu:<br>
><br>> Eu não consegui baixar a bibliotéca sptsatat, diz que não está disponível na versão R 3.0.1 do Windows.<br>><br>> Alexandre, bom dia!<br>> Não tenho experiência com a {spatstat}, mas tentei trabalhar seu código e acredito que possa lhe ser útil.<br>
><br>> ### <BEGIN><br>> require(raster); require(spatstat); require(sp) <br>> ## Raster <br>> ----------------------------------------------------------- <br>> set.seed(20130622)<br>> r <- raster(nc=100, nr=100) <br>
> r <- setValues(r, round(runif(ncell(r))* 255))<br>> plot(r)<br>> r.spdf <- data.frame(coordinates(r), px=getValues(r)); names(r.spdf)<br>> gridded(r.spdf) <- ~x+y<br>> spplot(r.spdf)<br>> ## Amostras<br>
> ------------------------------------------------- <br>> parc.p <- spsample(r.spdf, 15, type="random")<br>> parc.c <- vector("list",length(parc.p)) <br>> for(i in 1:length(parc.p)) {<br>
>           parc.c[[i]] <- disc(radius=5, centre=c(parc.p$x[i], parc.p$y[i]))}<br>> W    <- do.call(union.owin,parc.c)<br>> W.df <- as.data.frame(<a href="http://as.im">as.im</a>(W))<br>> W.sp <- W.df; coordinates(W.sp) <- ~x+y<br>
> plot(W.sp)<br>> W.df$px <- over(W.sp, r.spdf)<br>> head(W.df)<br>> #<br>> #          x         y value  px<br>> #1 -179.9856 -39.83543     1  11<br>> #2 -179.9856 -39.29907     1  76<br>> #3 -179.9856 -38.76271     1  76<br>
> #4 -179.9856 -38.22635     1  76<br>> #5 -179.9856 -37.68998     1  34<br>> #6 -178.7263 -41.98087     1 157<br>> #<br>> ### <END><br>> .<br><br>-- <br><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div><br>