14 - PPGMNE - Universidade Federal do Paraná
14 - PPGMNE - Universidade Federal do Paraná
14 - PPGMNE - Universidade Federal do Paraná
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
1<strong>14</strong>t i t l e ( main="256 amostras" )#### −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−## 128 a m o s t r a s545 image ( seq ( 5 , 1 5 0 , by =5) ,seq ( 5 , 1 1 5 , by =5) ,t ( matrix ( Soja128S .KC$ p r e d i c t , byrow=T , ncol =30) ) ,c o l =gray ( seq ( 1 , 0 , l =5) ) ,ann=FALSE)550 ##t i t l e ( main="128 amostras" )#### −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−## 64 a m o s t r a s555 image ( seq ( 5 , 1 5 0 , by =5) ,seq ( 5 , 1 1 5 , by =5) ,t ( matrix ( Soja64S .KC$ p r e d i c t , byrow=T , ncol =30) ) ,c o l =gray ( seq ( 1 , 0 , l =5) ) ,ann=FALSE)560 t i t l e ( main="64 amostras" )#### l e g e n d ( 0 , −5, c(”< 2 ,34” ,## ” ( 2 , 3 4 ; 2 , 6 1 ) ” ,## ” ( 2 , 6 1 ; 2 , 8 5 ) ” ,565 ## ” ( 2 , 8 5 ; 3 , 1 6 ) ” ,## ”> 3 ,16” ) ,## h o r i z=T ,## f i l l =gray ( seq ( 1 , 0 , l =5) ) ,## cex =1.0)570 ## −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−dev . o f f ( )######575 ## I N F E R E N C I A B A Y E S I A N A#### ######################################################## D e f i n i n d o o modelo para Soja256580 ## − Kappa = 1 ,6## − Funcao de c o r r e l a c a o de Matern## − Sem t r a n f o r m a c a o nos da<strong>do</strong>s ( lambda =1)## − P r i o r i s : p h i