NH<-read.table("nhanes3.dat",header=F,nrows=5)
NHnames.sub<-read.table("nhanes3names.dat",nrows=5,header=T)

cclass<-sapply(NHnames.sub,class)

NHnames.sub<-read.table("nhanes3names.dat",nrows=5,header=T,na.strings=".")

cclass<-sapply(NHnames.sub,class)
NHnames<-read.table("nhanes3names.dat",header=T,colClasses=cclass,na.strings=".")

###################################################################################

Heart<-read.csv("Heart.csv",header=T)
hclass<-sapply(Heart,class)

###################################################################################

NH2<-matrix(scan("nhanes3.dat",na.strings="."),ncol=16,byrow=T)
NH2[1:5,]

###################################################################################
library(foreign)

?read.dta
?read.spss

?write.foreign
?write.table

###################################################################################

reshape

cols.I.want<- rep("NULL", 16)
cols.I.want[c(1,5,7)]<- "integer"
cols.I.want[4]<-"numeric"

NHnames.cols<-read.table("nhanes3names.dat", colClasses = cols.I.want, header = T, na.strings=".")