[R-br] Digest R-br, volume 95, assunto 9

Adilson de Oliveira Jr. adilson.oliveira em embrapa.br
Qui Nov 8 15:45:47 -02 2018


Boa tarde!

Alguém poderia me ajudar com um delineamento em parcelas subdividadas com fatorial nas parcelas?

Parcela: Fator A (3 doses de K no sulco de Semeadura) x Fator B (4 doses de K em cobertura)
Subparcela: Aplicação ou não de K via foliar!

Desde já, muito grato!

Att.,


Adilson





-- Adilson de Oliveira Junior 
Pesquisador, Fertilidade do Solo e Nutrição de Plantas 
Secretário Executivo CTI 
Embrapa Soja, Londrina - PR 
Telefone: +55 (43) 3371-6225 | Celular: +55 (43) 9 9979-6428 
adilson.oliveira em embrapa.br 
Skype : adilsonoliveirajr 

www.embrapa.br/s oja | twitter.com/embrapa 

Confira também: www.facebook.com/agrosustentavel 
















Aviso de confidencialidade: 
Esta mensagem da Empresa Brasileira de Pesquisa Agropecuária (Embrapa),empresa pública federal regida pelo disposto na Lei Federal no. 5.851, de 7 de dezembro de 1972, é enviada exclusivamente a seu destinatário e pode conter informações confidenciais, protegidas por sigilo profissional. 
Sua utilização desautorizada é ilegal e sujeita o infrator às penas da lei. Se você recebeu indevidamente, queira, por gentileza, reenviá-la ao emitente,esclarecendo o equívoco. 
Confidentiality note: 
This message from Empresa Brasileira de Pesquisa Agropecu?a (Embrapa), a government company established under Brazilian law (5.851/72) is directed exclusively to its addressee and may contain confidential data, protected under professional secrecy rules. Its unauthorized use is illegal and may subject the transgressor to the law's penalties. 
If you are not the addressee, please send it back, elucidating the failure. 
"ANTES DE IMPRIMIR, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE" 

----- Mensagem original -----
De: r-br-request em listas.c3sl.ufpr.br
Para: r-br em listas.c3sl.ufpr.br
Enviadas: Quinta-feira, 8 de novembro de 2018 12:00:02
Assunto: Digest R-br, volume 95, assunto 9

Enviar submissões para a lista de discussão R-br para 
	r-br em listas.c3sl.ufpr.br

Para se cadastrar ou descadastrar via WWW, visite o endereço
	https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
ou, via email, envie uma mensagem com a palavra 'help' no assunto ou
corpo da mensagem para 
	r-br-request em listas.c3sl.ufpr.br

Você poderá entrar em contato com a pessoa que gerencia a lista pelo
endereço
	r-br-owner em listas.c3sl.ufpr.br

Quando responder, por favor edite sua linha Assunto assim ela será
mais específica que "Re: Contents of R-br digest..."


Tópicos de Hoje:

   1. Duplo fatorial desbalanceado - Soluções simples de análise
      (Jair)


----------------------------------------------------------------------

Message: 1
Date: Wed, 7 Nov 2018 12:04:34 -0300
From: Jair <jair.stat em gmail.com>
To: r-br em listas.c3sl.ufpr.br
Subject: [R-br] Duplo fatorial desbalanceado - Soluções simples de
	análise
Message-ID: <ac344a4d-fd23-c8e7-637b-ee3af919e78e em gmail.com>
Content-Type: text/plain; charset=utf-8; format=flowed

Pessoal,

gostaria de sugestões de soluções simples para análise do experimento a 
seguir.

#------------------------------------------------------------------
#Experimento fatorial com dois fatores em DIC
#Fator 1: Solo (4 tipos de solo)
#Fator 2: Profundidade (3 profundidades)
#Variável resposta: Teor de cromo
#Desbalanceado: não foi possível detectar a variável resposta
#para alguns solos em alguma profundidade.
#------------------------------------------------------------------
rm(list = ls())
solo <- rep(c("S1","S2","S3","S4"), each=15) #solos
prof <- rep(rep(c("P1","P2","P3"), each=5),4) #profundidades
rep <- rep(1:5, 12) #repetição
cromo <- c(30.40,   4.28,   9.27,  14.46,  10.54,  34.52, 6.36,
            16.89,  18.92,  12.92, 44.63,  18.53,  23.42,  23.37,
            18.43,  57.54, 132.40, 129.17, 135.37, 157.58, 67.89,
            154.09, 162.63, 155.19, 171.08,  70.82, 122.19, 164.69,
            179.06, 160.65, 121.25,  37.54,  30.26,  46.60,   NA,
            81.91,  26.35,  34.91,  46.03,  13.42, NA, NA,   NA,
            NA,     NA,   1.80,   4.33,   8.57,   3.75,   2.31,
            4.12,  10.72,  24.70,   6.50,   3.55,  57.91,   1.58,
            NA,  97.41,  56.73)

dados <- data.frame(solo, prof, rep, cromo)
str(dados)
#dados<-na.omit(dados)
#str(dados)
require(lattice)
xyplot(cromo~prof|solo, data = dados)
xyplot(cromo~solo|prof, data = dados)
library(car)
#Type III SS ANOVA
names(dados)
m1 <- Anova(lm(cromo ~ solo * prof, dados),
             type = "3")
m1
require(easyanova)
dado <- dados[,c(1:2,4)]
m2 <- ea2(data=dado, design = 1, alpha = 0.05,
           list = FALSE, p.adjust=1, plot=2)
m2
#---------------------------------------------------------------------

Obrigado desde já,

Jair




------------------------------

Subject: Legenda do Digest

_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br


------------------------------

Fim da Digest R-br, volume 95, assunto 9
****************************************

____________________________________________________________________________
Aviso de confidencialidade

Esta mensagem da Empresa  Brasileira de Pesquisa  Agropecuaria (Embrapa), empresa publica federal  regida pelo disposto  na Lei Federal no. 5.851,  de 7 de dezembro de 1972,  e  enviada exclusivamente  a seu destinatario e pode conter informacoes  confidenciais, protegidas  por sigilo profissional.  Sua utilizacao desautorizada  e ilegal e  sujeita o infrator as penas da lei. Se voce  a recebeu indevidamente, queira, por gentileza, reenvia-la ao emitente, esclarecendo o equivoco.

Confidentiality note

This message from Empresa  Brasileira de Pesquisa  Agropecuaria (Embrapa), a government company  established under  Brazilian law (5.851/72), is directed exclusively to  its addressee  and may contain confidential data,  protected under  professional secrecy  rules. Its unauthorized  use is illegal and  may subject the transgressor to the law's penalties. If you are not the addressee, please send it back, elucidating the failure.



Mais detalhes sobre a lista de discussão R-br