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 [email protected] 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: [email protected] Para: [email protected] 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 [email protected] 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 [email protected] Você poderá entrar em contato com a pessoa que gerencia a lista pelo endereço [email protected] 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 <[email protected]> To: [email protected] Subject: [R-br] Duplo fatorial desbalanceado - Soluções simples de análise Message-ID: <[email protected]> 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 [email protected] 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. _______________________________________________ R-br mailing list [email protected] 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 fornea cdigo mnimo reproduzvel.
