dat1 <- read.table( "przyrosty-swinek.txt", head=T ) ; 
attach( dat1 ) ;

lm( przyrost ~ as.factor(ojciec) ) -> L1 ;
anova( L1 ) ;