Alexandre!
Não sei se entendi direito, mais vai uma primeira tentativa aí.
p0<- c(15,15)#Ponto inicial
c0 <- seq(10,100,by=10)
malha <- list()
for(i in 1:length(c0)){
malha[[i]] <- expand.grid(xp=seq(p0[1], by=c0[[i]], length.out=20),
yp=seq(p0[2], by=c0[[i]], length.out=20))#Criando um grid de pontos a cada 10
metros
}
malha[[2]]
plot(malha[[2]])
plot(malha[[3]])
Allaman
(S,f,P)
M.Sc Ivan Bezerra Allaman
Zootecnista
Doutorando em Produção Animal/Aquicultura - UFLA
email e msn - [email protected]
Tel: (35)3826-6608/9900-2924
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
