ExpAnalysis3d (version 0.1.3)

plot3D: Plotar graficos 3D

Description

Esta funcao proporciona a criacao de um grafico de superficie resposta (3D). Para isso, deve-se ter como entrada o output da funcao 'AjustarRegressao'.

Usage

plot3D(Resultado,
              modelo=NULL,
              cor=NULL,
              xlab=NULL,
              ylab=NULL,
              zlab=NULL,
              main=NULL)

Value

A funcao retorna um grafico 3D.

Arguments

Resultado

Objeto do tipo list contendo a saida da funcao 'AjustarRegressao'

modelo

Valor numerico indicando o modelo considerado na confeccao do grafico. Pode ser NULL (default) ou um valor numerico indicando o modelo a ser considerado.

• NULL -> Considera o melhor dos modelos testados de acordo com o Criterio de informatividade de Akaike (AIC)

• n -> considera o n-esimo modelo para plotar o grafico.

cor

Refere-se a paleta de cores para a construcao do grafico. Se for NULL (default) sera utilizado uma paleta de cores padrao. Se for desejavel utilizar outras cores veja como criar a paleta de cores no exemplo dessa funcao.

xlab

Texto indicando o nome do eixo x.

ylab

Texto indicando o nome do eixo y.

zlab

Texto indicando o nome do eixo z.

main

Texto indicando o nome do grafico.

References

Tutoriais onlines: https://www.youtube.com/playlist?list=PLvth1ZcREyK6OUnWVs-hnyVdCB1xuxbVs

See Also

plot2D, predict3D, AjustarRegressao

Examples

#'  ########################################################################
 ########################################################################
  #Exemplo 1: Experimento sem delineamento
  data("Dados1")
  res=AjustarRegressao(Dados = Dados1,
  design=1)
  plot3D(res)
  ##########################
  #Criando paleta de cores
  col0 = colorRampPalette(c('white', 'cyan', '#007FFF', 'blue','#00007F'))
  col1 = colorRampPalette(c('#7F0000', 'red', '#FF7F00', 'yellow', 'white',
                            'cyan', '#007FFF', 'blue','#00007F'))
  col2 = colorRampPalette(c('#67001F', '#B2182B', '#D6604D', '#F4A582',
                            '#FDDBC7', '#FFFFFF', '#D1E5F0', '#92C5DE',
                            '#4393C3', '#2166AC', '#053061'))
  col3 = colorRampPalette(c('red', 'white', 'blue'))
  col4 = colorRampPalette(c('#7F0000', 'red', '#FF7F00', 'yellow', '#7FFF7F',
                            'cyan', '#007FFF', 'blue', '#00007F'))


  plot3D(res,cor=col4(200),xlab="Comprimento (cm)",ylab="Largura (cm)",
  zlab="Area (cm2)")


 ########################################################################
 ########################################################################
 #Exemplo 2: Experimento sem delineamento
  data("Dados2")
  res=AjustarRegressao(Dados = Dados2, design=1)
  plot3D(res,cor=col1(200),xlab="Acucar (%)",ylab="Banana (%)",
  zlab="Aceitabilidade")




  #Exemplo 3: Experimento com delineamento (DIC)
  data("Dados3")
  res=AjustarRegressao(Dados = Dados3, design=2)
  plot3D(res,cor=col1(200),xlab="N (K/ha)",ylab="K (Kg/ha)")


  #Exemplo 4: Experimento com delineamento (DBC)
  data("Dados3")
  res=AjustarRegressao(Dados = Dados3, design=3)
  plot3D(res,cor=col1(200),modelo = 10,xlab="N (K/ha)",ylab="K (Kg/ha)")

  #Exemplo 5: Experimento com delineamento (DBC) e modelos personalizados
  data("Dados3")
  Mod=list(
  m1  =Z~   1 + X  + Y,
  m2	=Z~	 1 + X  + I(X^2)  + Y  + I(Y^2),
  m3	=Z~	 1 + X  + Y       + X:Y)
  res=AjustarRegressao(Dados = Dados3, design=3,Modelos=Mod)
  plot3D(res,cor=col1(200),modelo = 3,xlab="N (K/ha)",ylab="K (Kg/ha)")