data=read.table("survey_66249_data_file.csv", sep=",", quote = "'", na.strings="")
 names(data)=paste("V",1:dim(data)[2],sep="")
 data[,which(names(data)=="V1")]=as.numeric(data[,which(names(data)=="V1")])
 data[,which(names(data)=="V2")]=as.numeric(data[,which(names(data)=="V2")])
 data[,which(names(data)=="V3")]=as.character(data[,which(names(data)=="V3")])
 data[,which(names(data)=="V4")]=as.numeric(data[,which(names(data)=="V4")])
#Define Variable Properties.
attributes(data)$variable.labels[which(names(data)=="V1")]="id"
attributes(data)$variable.labels[which(names(data)=="V2")]="submitdate"
attributes(data)$variable.labels[which(names(data)=="V3")]="startlanguage"
attributes(data)$variable.labels[which(names(data)=="V4")]="Question"
#Define Value labels.
data$V4=factor(data$V4,levels=c("a1","a2","a3"),labels=c("Answer1","Answer2","Answer3"))
v.names=c("id","submitdate","startlanguage","Q01_01",NA); names(data)= v.names[-length(v.names)]
print(str(data))