<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Obrigado Benilton, mas não funcionou, segue CRM abaixo:<br>
<br>
require(spatstat)<br>
<br>
# Two polygons
coordinates------------------------------------------------------<br>
<br>
#Polygon 1<br>
x.coords1<-c(371299.9, 371266.4, 371205.6, 371111.8,
371047.6, 371018.2, 371014.0,<br>
371009.3, 370983.1, 370919.7, 370853.6,
370785.6, 370748.8, 370711.8,<br>
370687.8, 370696.4, 370785.9, 370885.5,
371035.8, 371148.1, 371205.2,<br>
371231.7, 371236.5, 371240.3, 371285.8,
371326.5, 371397.2, 371417.1,<br>
371432.9, 371445.0, 371455.7, 371466.4,
371476.6, 371502.6, 371536.0,<br>
371550.0, 371546.8, 371528.3, 371470.0,
371393.3, 371299.9, 371299.9)<br>
<br>
y.coords1<-c(8246589, 8246560, 8246508, 8246428,
8246373, 8246349, 8246348,<br>
8246352, 8246385, 8246465, 8246551,
8246638, 8246685, 8246732,<br>
8246764, 8246771, 8246846, 8246932,
8247062, 8247160, 8247209,<br>
8247230, 8247224, 8247221, 8247160,
8247107, 8247016, 8246991,<br>
8246967, 8246939, 8246914, 8246892,
8246875, 8246846, 8246821,<br>
8246809, 8246802, 8246785, 8246735,
8246669, 8246589, 8246589)<br>
<br>
#Polygon 2<br>
<br>
x.coords2<-c(368382.9, 368399.4, 368394.1, 368464.7,
368652.2, 368683.7, 368699.7,<br>
368714.9, 368714.9, 368714.9, 368860.9,
368932.1, 368994.8, 368994.8,<br>
369015.7, 369014.5, 369014.5, 369026.8,
369045.2, 369020.0, 368952.9,<br>
368951.4, 368952.9, 368951.4, 368936.8,
368923.4, 368804.1, 368676.0,<br>
368178.1, 368182.4, 368202.2, 368216.2,
368233.4, 368251.3, 368270.3,<br>
368281.7, 368300.6, 368323.8, 368344.8,
368364.6, 368374.2, 368382.9)<br>
<br>
<br>
<br>
y.coords2<-c(8249120, 8249150, 8249153, 8249244,
8249173, 8249167, 8249154,<br>
8249145, 8249145, 8249145, 8249048,
8249026, 8249003, 8249003,<br>
8248993, 8248991, 8248991, 8248984,
8248970, 8248889, 8248833,<br>
8248829, 8248833, 8248829, 8248790,
8248765, 8248626, 8248526,<br>
8248774, 8248780, 8248815, 8248843,
8248871, 8248903, 8248934,<br>
8248952, 8248978, 8249013, 8249049,
8249086, 8249103, 8249120)<br>
<br>
# Window creation<br>
<br>
D1 <- unique(data.frame(x=rev(x.coords1),y=rev(y.coords1)))<br>
W1 <- owin(poly=D1)<br>
D2 <- unique(data.frame(x=rev(x.coords2),y=rev(y.coords2)))<br>
W2 <- owin(poly=D2)<br>
W <- union.owin(W1,W2)<br>
plot(W)<br>
<br>
<br>
# Create point process<br>
xypois=rpoispp(0.0001,
win=owin(c(min(W$xrange),max(W$xrange)),c(min(W$yrange),max(W$yrange))))<br>
points(xypois$x,xypois$y, col="red")<br>
#<br>
syn.ppp<-ppp(x=xypois$x,y=xypois$y,window=W)<br>
plot(syn.ppp, main=" ")<br>
# END<br>
<br>
str(syn.ppp)<br>
<br>
<br>
<div class="moz-cite-prefix">Em 23/12/2013 18:08, Benilton Carvalho
escreveu:<br>
</div>
<blockquote
cite="mid:CAO-arWNLszfedfSjpvppEm2mGQu=tuf62zzB+qvqafu4xk=sGw@mail.gmail.com"
type="cite">
<div dir="ltr">usando seu exemplo nao-reprodutivel, eu chutaria
algo como:
<div><br>
</div>
<div>syn.ppp$markformat$x</div>
<div><br>
</div>
<div>b</div>
</div>
<div class="gmail_extra"><br>
<br>
<div class="gmail_quote">Em 23 de dezembro de 2013 16:54,
ASANTOS <span dir="ltr"><<a moz-do-not-send="true"
href="mailto:alexandresantosbr@yahoo.com.br"
target="_blank">alexandresantosbr@yahoo.com.br</a>></span>
escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">Boa tarde
pessoal,<br>
<br>
Estou quebrando a cabeça com um list criado com o
pacote spatstat, gostaria de selecionar o vetor $ x : num
[1:906] dentro do - attr(*, "class")= chr "owin" no objeto
syn.ppp abaixo, porém fiz str() e names() em vários níveis,
como syn.ppp$window$units e vários outros e não consegui
achar este vetor, alguém poderia me dar um help?<br>
<br>
Obrigado<br>
<br>
> str(syn.ppp)<br>
List of 5<br>
$ window :List of 11<br>
..$ type : chr "mask"<br>
..$ xrange : num [1:2] 368178 371550<br>
..$ yrange : num [1:2] 8246348 8249244<br>
..$ dim : int [1:2] 128 128<br>
..$ xstep : num 26.3<br>
..$ ystep : num 22.6<br>
..$ warnings: chr [1:3] "Row index corresponds to
increasing y coordinate; column to increasing x" "Transpose
matrices to get the standard presentation in R" "Example:
image(result$xcol,result$yrow,t(result$d))"<br>
..$ xcol : num [1:128] 368191 368218 368244 368270
368297 ...<br>
..$ yrow : num [1:128] 8246359 8246382 8246405 8246427
8246450 ...<br>
..$ m : logi [1:128, 1:128] FALSE FALSE FALSE FALSE
FALSE FALSE ...<br>
..$ units :List of 3<br>
.. ..$ singular : chr "unit"<br>
.. ..$ plural : chr "units"<br>
.. ..$ multiplier: num 1<br>
.. ..- attr(*, "class")= chr "units"<br>
..- attr(*, "class")= chr "owin"<br>
$ n : int 74<br>
$ x : num [1:74] 368987 371068 368638 368800 368424
...<br>
$ y : num [1:74] 8248993 8246965 8248866 8249077
8248739 ...<br>
$ markformat: chr "none"<br>
- attr(*, "class")= chr "ppp"<br>
- attr(*, "rejects")=List of 5<br>
..$ window :List of 5<br>
.. ..$ type : chr "polygonal"<br>
.. ..$ xrange: num [1:2] 368167 371564<br>
.. ..$ yrange: num [1:2] 8246335 8249255<br>
.. ..$ bdry :List of 1<br>
.. .. ..$ :List of 2<br>
.. .. .. ..$ x: num [1:17] 371564 371520 371370 371087
368410 ...<br>
.. .. .. ..$ y: num [1:17] 8248172 8249235 8249252 8249255
8249248 ...<br>
.. ..$ units :List of 3<br>
.. .. ..$ singular : chr "unit"<br>
.. .. ..$ plural : chr "units"<br>
.. .. ..$ multiplier: num 1<br>
.. .. ..- attr(*, "class")= chr "units"<br>
.. ..- attr(*, "class")= chr "owin"<br>
..$ n : int 906<br>
..$ x : num [1:906] 370662 368804 370729 370616
369597 ...<br>
..$ y : num [1:906] 8246749 8246960 8247257
8247999 8248656 ...<br>
..$ markformat: chr "none"<br>
..- attr(*, "class")= chr "ppp"<br>
<br>
-- <br>
======================================================================<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia
de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT CEP: 78.200-000<br>
Fone: <a moz-do-not-send="true"
href="tel:%28%2B55%29%2065%208132-8112"
value="+556581328112" target="_blank">(+55) 65 8132-8112</a>
(TIM) <a moz-do-not-send="true"
href="tel:%28%2B55%29%2065%209686-6970"
value="+556596866970" target="_blank">(+55) 65 9686-6970</a>
(VIVO)<br>
<a moz-do-not-send="true"
href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br"
target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a><br>
<a moz-do-not-send="true"
href="mailto:alexandre.santos@cas.ifmt.edu.br"
target="_blank">alexandre.santos@cas.ifmt.edu.br</a><br>
Lattes: <a moz-do-not-send="true"
href="http://lattes.cnpq.br/1360403201088680"
target="_blank">http://lattes.cnpq.br/1360403201088680</a><br>
======================================================================<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a moz-do-not-send="true"
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a moz-do-not-send="true"
href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
e forneça código mínimo reproduzível.<br>
</blockquote>
</div>
<br>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<pre class="moz-signature" cols="72">--
======================================================================
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)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
</body>
</html>