Boa tarde Pessoal, Estou com dificuldades de fazer um expand.grid() alterando-se as distância, como por exemplo se faço: # Ponto inicial p0<-c(1,1) c0 <- seq(p0[1],p0[1]+190,by=2) d0 <- seq(p0[2],p0[2]+47,by=3) d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas 3 x 2 plot(d1[,1],d1[,2]) #---------- Crio 16 pontos no eixo y e 32 pontos no eixo x, totalizando 1536 pontos, no entanto, eu gostaria de criar os mesmo 1536 pontos, mas gostaria de fazer da seguinte maneira: a cada 8 pontos na linha e 8 na coluna, distanciar em 4 unidades na linha e na coluna do próximo agrupamento de 8 pontos na linha e 8 na coluna para todos os pontos, formando ao final 24 agrupamentos de 8 pontos na linha por 8 na coluna separados de maneira equidistantes em 4 unidades. Alguém poderia me dar uma ajuda, pois fiz inúmeras tentativas sem sucesso? Obrigado, -- ====================================================================== 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) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
p0<-c(1,1) c0 <- seq(p0[1],p0[1]+190,by=2) d0 <- seq(p0[2],p0[2]+47,by=3) d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas 3 x 2 plot(d1[,1],d1[,2]) curve(plot) Em 2 de novembro de 2013 16:31, ASANTOS <alexandresantosbr@yahoo.com.br>escreveu:
Boa tarde Pessoal,
Estou com dificuldades de fazer um expand.grid() alterando-se as distância, como por exemplo se faço:
# Ponto inicial p0<-c(1,1) c0 <- seq(p0[1],p0[1]+190,by=2) d0 <- seq(p0[2],p0[2]+47,by=3) d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas 3 x 2 plot(d1[,1],d1[,2]) #----------
Crio 16 pontos no eixo y e 32 pontos no eixo x, totalizando 1536 pontos, no entanto, eu gostaria de criar os mesmo 1536 pontos, mas gostaria de fazer da seguinte maneira: a cada 8 pontos na linha e 8 na coluna, distanciar em 4 unidades na linha e na coluna do próximo agrupamento de 8 pontos na linha e 8 na coluna para todos os pontos, formando ao final 24 agrupamentos de 8 pontos na linha por 8 na coluna separados de maneira equidistantes em 4 unidades. Alguém poderia me dar uma ajuda, pois fiz inúmeras tentativas sem sucesso?
Obrigado,
-- ====================================================================== 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) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
Sua explicação ficou muito confusa. Eu entendi que você tem um grid regular em duas dimensões e quer colocar outros iguais a este ao lado e acima mas de tal forma que tenha um espaço entre eles, em outras palavras, um vão entre eles. O resultado é parecido com uma horta cheia de canteiros ou talhões de plantio florestal (que deve ser o seu caso). Sendo assim, segue CMR. ## distâncias verticais e horizontais v <- 2; h <- 3 ## número de pontos vertical e horizontal npv <- 8; nph <- 5 ## distância entre vãos vertical e hotizontal V <- 3; H <- 4 ## número de linhas e colunas ncol <- 2; nrow <- 3 grid0 <- expand.grid(L=seq(0,length.out=nrow,by=npv*v+V), C=seq(0,length.out=ncol,by=nph*h+H), x=seq(0,length.out=npv,by=v), y=seq(0,length.out=nph,by=h)) grid1 <- with(grid0, data.frame(x=L+x, y=C+y)) plot(y~x, grid1, asp=1) À disposição. Walmes. ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 skype: walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ========================================================================== 2013/11/2 Thiago Silva Pereira <thigo.mail@gmail.com>
p0<-c(1,1) c0 <- seq(p0[1],p0[1]+190,by=2) d0 <- seq(p0[2],p0[2]+47,by=3) d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas 3 x 2 plot(d1[,1],d1[,2]) curve(plot)
Em 2 de novembro de 2013 16:31, ASANTOS <alexandresantosbr@yahoo.com.br>escreveu:
Boa tarde Pessoal,
Estou com dificuldades de fazer um expand.grid() alterando-se as distância, como por exemplo se faço:
# Ponto inicial p0<-c(1,1) c0 <- seq(p0[1],p0[1]+190,by=2) d0 <- seq(p0[2],p0[2]+47,by=3) d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas 3 x 2 plot(d1[,1],d1[,2]) #----------
Crio 16 pontos no eixo y e 32 pontos no eixo x, totalizando 1536 pontos, no entanto, eu gostaria de criar os mesmo 1536 pontos, mas gostaria de fazer da seguinte maneira: a cada 8 pontos na linha e 8 na coluna, distanciar em 4 unidades na linha e na coluna do próximo agrupamento de 8 pontos na linha e 8 na coluna para todos os pontos, formando ao final 24 agrupamentos de 8 pontos na linha por 8 na coluna separados de maneira equidistantes em 4 unidades. Alguém poderia me dar uma ajuda, pois fiz inúmeras tentativas sem sucesso?
Obrigado,
-- ====================================================================== 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) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
Fantástico Walmes, Obrigado inicialmente pela rotina e pela interpretação da pergunta, a palavras chave era vão. -- ====================================================================== 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) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ====================================================================== Em 02/11/2013 17:09, walmes . escreveu:
Sua explicação ficou muito confusa. Eu entendi que você tem um grid regular em duas dimensões e quer colocar outros iguais a este ao lado e acima mas de tal forma que tenha um espaço entre eles, em outras palavras, um vão entre eles. O resultado é parecido com uma horta cheia de canteiros ou talhões de plantio florestal (que deve ser o seu caso). Sendo assim, segue CMR.
## distâncias verticais e horizontais v <- 2; h <- 3
## número de pontos vertical e horizontal npv <- 8; nph <- 5
## distância entre vãos vertical e hotizontal V <- 3; H <- 4
## número de linhas e colunas ncol <- 2; nrow <- 3
grid0 <- expand.grid(L=seq(0,length.out=nrow,by=npv*v+V), C=seq(0,length.out=ncol,by=nph*h+H), x=seq(0,length.out=npv,by=v), y=seq(0,length.out=nph,by=h)) grid1 <- with(grid0, data.frame(x=L+x, y=C+y))
plot(y~x, grid1, asp=1)
À disposição. Walmes.
========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 skype: walmeszeviani homepage: http://www.leg.ufpr.br/~walmes <http://www.leg.ufpr.br/%7Ewalmes> linux user number: 531218 ==========================================================================
2013/11/2 Thiago Silva Pereira <thigo.mail@gmail.com <mailto:thigo.mail@gmail.com>>
p0<-c(1,1) c0 <- seq(p0[1],p0[1]+190,by=2) d0 <- seq(p0[2],p0[2]+47,by=3) d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas 3 x 2 plot(d1[,1],d1[,2]) curve(plot)
Em 2 de novembro de 2013 16:31, ASANTOS <alexandresantosbr@yahoo.com.br <mailto:alexandresantosbr@yahoo.com.br>> escreveu:
Boa tarde Pessoal,
Estou com dificuldades de fazer um expand.grid() alterando-se as distância, como por exemplo se faço:
# Ponto inicial p0<-c(1,1) c0 <- seq(p0[1],p0[1]+190,by=2) d0 <- seq(p0[2],p0[2]+47,by=3) d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas 3 x 2 plot(d1[,1],d1[,2]) #----------
Crio 16 pontos no eixo y e 32 pontos no eixo x, totalizando 1536 pontos, no entanto, eu gostaria de criar os mesmo 1536 pontos, mas gostaria de fazer da seguinte maneira: a cada 8 pontos na linha e 8 na coluna, distanciar em 4 unidades na linha e na coluna do próximo agrupamento de 8 pontos na linha e 8 na coluna para todos os pontos, formando ao final 24 agrupamentos de 8 pontos na linha por 8 na coluna separados de maneira equidistantes em 4 unidades. Alguém poderia me dar uma ajuda, pois fiz inúmeras tentativas sem sucesso?
Obrigado,
-- ====================================================================== 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 <tel:%28%2B55%29%2065%208132-8112> (TIM) (+55) 65 9686-6970 <tel:%28%2B55%29%2065%209686-6970> (VIVO) e-mails:alexandresantosbr@yahoo.com.br <mailto:e-mails%3Aalexandresantosbr@yahoo.com.br> alexandre.santos@cas.ifmt.edu.br <mailto:alexandre.santos@cas.ifmt.edu.br> Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <mailto:R-br@listas.c3sl.ufpr.br> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <mailto:R-br@listas.c3sl.ufpr.br> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
Olá pessoal tudo bem, boa tarde Estou querendo realizar uma ANOVA em um conjunto de dados, o código segue abaixo fit <- aov(Pressão ~ Fumante, data=mydataframe) Nesse caso ele faria anova entre o grupo de fumantes (3 categorias) do grupo Raça(3 categorias). como posso fazer esse procedimento?
anova(fit) Em 4 de novembro de 2013 15:13, geovane barbosa <geovanecb@yahoo.com.br>escreveu:
Olá pessoal tudo bem, boa tarde
Estou querendo realizar uma ANOVA em um conjunto de dados, o código segue abaixo
fit <- aov(Pressão ~ Fumante, data=mydataframe)
Nesse caso ele faria anova entre o grupo de fumantes (3 categorias) do grupo Raça(3 categorias).
como posso fazer esse procedimento?
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
Você quer analisar efeito de interação entre fumantes e raças? Se for o caso faça: fit <- aov(Pressão ~ Fumante*raça, data=mydataframe) anova(fit) abçs Em 4 de novembro de 2013 16:24, Adriano Carvalho Costa < acarvalhocosta@gmail.com> escreveu:
anova(fit)
Em 4 de novembro de 2013 15:13, geovane barbosa <geovanecb@yahoo.com.br>escreveu:
Olá pessoal tudo bem, boa tarde
Estou querendo realizar uma ANOVA em um conjunto de dados, o código segue abaixo
fit <- aov(Pressão ~ Fumante, data=mydataframe)
Nesse caso ele faria anova entre o grupo de fumantes (3 categorias) do grupo Raça(3 categorias).
como posso fazer esse procedimento?
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- ======================================================================= Fernando Souza Zootecnista, DSc. Produção Animal celular: (+55) 82 8113-8781 e-mail:nandodesouza@gmail.com ==========================================================================
Olá Fernando não é o efeito de interação, é dentro dos grupos de raça. #################################### #################################### Prof. Geovane Carlos Barbosa UCL - Faculdade do Centro Leste ################################### ################################### Em Terça-feira, 5 de Novembro de 2013 9:28, Fernando Antonio de souza <nandodesouza@gmail.com> escreveu: Você quer analisar efeito de interação entre fumantes e raças? Se for o caso faça: fit <- aov(Pressão ~ Fumante*raça, data=mydataframe) anova(fit) abçs Em 4 de novembro de 2013 16:24, Adriano Carvalho Costa <acarvalhocosta@gmail.com> escreveu: anova(fit)
Em 4 de novembro de 2013 15:13, geovane barbosa <geovanecb@yahoo.com.br> escreveu:
Olá pessoal tudo bem, boa tarde
Estou querendo realizar uma ANOVA em um conjunto de dados, o código segue abaixo
fit <- aov(Pressão ~ Fumante, data=mydataframe)
Nesse caso ele faria anova entre o grupo de fumantes (3 categorias) do grupo Raça(3 categorias).
como posso fazer esse procedimento?
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- ======================================================================= Fernando Souza Zootecnista, DSc. Produção Animal celular: (+55) 82 8113-8781 e-mail:nandodesouza@gmail.com ========================================================================== _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
Em terça-feira, 5 de novembro de 2013 10:12:41, geovane barbosa escreveu:
Olá Fernando não é o efeito de interação, é dentro dos grupos de raça. #################################### #################################### Prof. Geovane Carlos Barbosa UCL - Faculdade do Centro Leste ################################### ###################################
Em Terça-feira, 5 de Novembro de 2013 9:28, Fernando Antonio de souza <nandodesouza@gmail.com> escreveu: Você quer analisar efeito de interação entre fumantes e raças? Se for o caso faça:
fit <- aov(Pressão ~ Fumante*raça, data=mydataframe) anova(fit)
abçs
Em 4 de novembro de 2013 16:24, Adriano Carvalho Costa <acarvalhocosta@gmail.com <mailto:acarvalhocosta@gmail.com>> escreveu:
anova(fit)
Em 4 de novembro de 2013 15:13, geovane barbosa <geovanecb@yahoo.com.br <mailto:geovanecb@yahoo.com.br>> escreveu:
Olá pessoal tudo bem, boa tarde
Estou querendo realizar uma ANOVA em um conjunto de dados, o código segue abaixo
fit <- aov(Pressão ~ Fumante, data=mydataframe)
Nesse caso ele faria anova entre o grupo de fumantes (3 categorias) do grupo Raça(3 categorias).
como posso fazer esse procedimento?
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <mailto:R-br@listas.c3sl.ufpr.br> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <mailto:R-br@listas.c3sl.ufpr.br> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- ======================================================================= Fernando Souza Zootecnista, DSc. Produção Animal celular: (+55) 82 8113-8781 e-mail:nandodesouza@gmail.com <mailto:e-mail%3Anandodesouza@gmail.com>
==========================================================================
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <mailto:R-br@listas.c3sl.ufpr.br> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
Acho que este post do Walmes no blog Ridículas, faz o que você quer. http://ridiculas.wordpress.com/2011/05/21/fatorial-com-desdobramento-da-inte... -- ===================================================== Fernando Souza Zootecnista, DSc. Produção Animal cel: (+55) 82 8113-8781 e-mail:nandodesouza@gmail.com ==================================================
participantes (7)
-
Adriano Carvalho Costa -
ASANTOS -
Fernando Antonio de souza -
Fernando Souza
-
geovane barbosa -
Thiago Silva Pereira -
walmes .