<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=ISO-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.23536">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff text=#000000>
<DIV><FONT color=#0000ff face=Arial>Tentei instalar a biblioteca spatstat mas
aparece mensagem que não está disponível no na versão R 3.01 no
Windows!</FONT><BR><BR><BR></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">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 href="mailto:alexandresantosbr@yahoo.com.br" target=_blank
moz-do-not-send="true">alexandresantosbr@yahoo.com.br</A>></SPAN>
escreveu:<BR>
<BLOCKQUOTE
style="BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex; PADDING-LEFT: 1ex"
class=gmail_quote>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 href="tel:%28%2B55%29%2065%208132-8112"
target=_blank moz-do-not-send="true" value="+556581328112">(+55) 65
8132-8112</A> (TIM) <A href="tel:%28%2B55%29%2065%209686-6970"
target=_blank moz-do-not-send="true" value="+556596866970">(+55) 65
9686-6970</A> (VIVO)<BR><A
href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target=_blank
moz-do-not-send="true">e-mails:alexandresantosbr@yahoo.com.br</A><BR>
<A href="mailto:alexandre.santos@cas.ifmt.edu.br"
target=_blank
moz-do-not-send="true">alexandre.santos@cas.ifmt.edu.br</A><BR>Lattes: <A
href="http://lattes.cnpq.br/1360403201088680" target=_blank
moz-do-not-send="true">http://lattes.cnpq.br/1360403201088680</A><BR>======================================================================<BR><BR>_______________________________________________<BR>R-br
mailing list<BR><A href="mailto:R-br@listas.c3sl.ufpr.br" target=_blank
moz-do-not-send="true">R-br@listas.c3sl.ufpr.br</A><BR><A
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target=_blank
moz-do-not-send="true">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR>Leia
o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia"
target=_blank moz-do-not-send="true">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>
<P>
<HR>
<P></P>_______________________________________________<BR>R-br mailing
list<BR>R-br@listas.c3sl.ufpr.br<BR>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<BR>Leia
o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo
reproduzível.</BLOCKQUOTE></BODY></HTML>