dat <- read.csv("dementia.csv")
names(dat)

drops <- c("X","PIDN","DCDate","SourceID","ScanNo","vbmID","MagnetStrength","ScannerID","ScanType","ROWNUM","InstrID","ScannerID_2","PIBPos","Sex","Educ","Race","DateofDeath","autopsy.","PIBDone.","drop")

dat <- dat[ , !(names(dat) %in% drops)]
dat <- dat[ ,c(length(names(dat)),6,1:5,7:((length(names(dat))-1)))]
dat$Dementia <- ifelse(dat$Dementia,"Yes","No")
write.csv(dat,file="dementia2.csv",row.names=FALSE)