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