> altura<-read.fwf('http://www.ufpr.br/~aanjos/TRI/dados/altura211.dat',widths=c(3,4,rep(1,14)),header=FALSE)
  > colnames(altura)<-c('id','altura',paste('i',1:14,sep="")) # insere nomes

  > head(altura)

    id altura i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14
  1  1   1,81  0  1  0  1  1  1  1  0  1   1   1   0   1   0
  2  2   1,64  0  0  0  0  0  0  0  0  1   0   0   0   0   0
  3  3   1,80  0  0  1  1  0  0  1  0  1   1   0   1   0   1
  4  4   1,78  0  1  1  1  1  0  1  0  1   1   0   1   0   1
  5  5   1,66  0  0  0  0  0  0  1  0  1   1   0   0   0   0
  6  6   1,67  0  0  0  0  0  0  1  0  1   1   0   0   0   0

  > class(altura)

  [1] "data.frame"