<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=windows-1252">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Boa noite Pessoal,<br>
<br>
Estou tentando representar as parcelas de um experimento em
campo e estou tendo dois problemas sendo:<br>
<br>
1) <u>Representação do centro das parcelas</u>:<br>
<br>
## Coordenadas do grid no espaçamento das plantas de 2x4m<br>
<br>
## distâncias verticais e horizontais entre plantas<br>
v <- 2; h <- 4<br>
<br>
## número de plantas vertical e horizontal<br>
npv <- 4; nph <- 5<br>
<br>
## distância entre vãos vertical e horizontal (distância entre
parcelas)<br>
V <- 7; H <- 7<br>
<br>
## número de parcelas em linhas e colunas<br>
ncol <- 4; nrow <- 12<br>
<br>
grid0 <- expand.grid(L=seq(2,length.out=nrow,by=npv*v+V),<br>
C=seq(2,length.out=ncol,by=nph*h+H),<br>
x=seq(2,length.out=npv,by=v),<br>
y=seq(2,length.out=nph,by=h))<br>
grid1 <- with(grid0, data.frame(x=L+x, y=C+y))<br>
<br>
plot(y~x, grid1, asp=1) ### Representação das plantas<br>
<br>
<br>
Até aí tudo bem, porém quando tento representar por pontos o
centro das parcelas, começa o problema, sendo:<br>
<br>
### O centro de cada parcela vai se localizar a cada 13 m na
horizontal e a cada 23 na vertical<br>
<br>
grid2 <- expand.grid(seq(7,length.out=13*4,by=13),<br>
seq(12,length.out=23*12,by=23))<br>
<br>
points(grid2[,1],grid2[,2],col="red") ## Vejo que os pontos caem
errado e não sei por que?<br>
<br>
<br>
2) <u>Criar uma coluna para identificar a parcela a qual pertence
cada planta</u>:<br>
<br>
<br>
pos<-1:48<br>
text(grid2[,1],grid2[,2]+0.5,labels=pos, cex=1,col=2)<br>
<br>
e depois que o centro cair no local certo, gostaria de fazer
grid1$pos para identificar a qual centro da parcela cada ponto
pertence.<br>
<br>
<br>
Espero que alguém possa dar um help,<br>
<br>
Obrigado,<br>
<br>
<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>