CH$07$

$[$RedWine$.$txt$]$ R $[$AggWaFit$718.$R$]$ R $$ R $[$template$.$R$]$

$""$RedWine$.$txt$"1,599[1]5$ X$1$ X$2$ X$3$ X$4$ X$5$ Y $$:

X$1-$

X$2-$

X$3-$

X$4-$ pH X$5-$

Y $-(010)$

$[1]$ P$.$ Cortez, A$.$ Cerdeira, F$.$ Almeida, T$.$ Matos $$ J$.$ Reis. $47(4)$:$547-5532009$

$1.$

$($i$)$ txt $($RedWine$.$txt$)$ R $$

$($ii$)<-$ as$.$matrix$($read$.$table$(""$RedWine$.$txt$"")$

$($iii$)($Y$)$ Y $400$: my$.$data $<-$ the.data$[$sample$(1$:$1599,400),$c$(1$:$6)]$

$[400]$

$($iv$)$ X$1$ X$2$ X$3$ X$4$ X$5$

$2.$

$($X$1,$ X$2,...,$ X$5)$ Y $$

$[$

$3.$

$($i