smarn 연습

marn <- read.csv("marn.csv",sep=",",header=FALSE,stringsAsFactors = FALSE)
str(marn)
names(marn) <- c("year","Seoul","Busan","Daegu","Incheon","Gwangju")
View(marn)
marn <- marn[-1,]
rownames(marn)
marn$Year_n1 <- as.numeric(marn$year)
marn$Seoul_n1 <- as.numeric(marn$Seoul)
marn$Busan_n1 <- as.numeric(marn$Busan)
marn$Daegu_n1 <- as.numeric(marn$Daegu)
marn$Incheon_n1 <- as.numeric(marn$Incheon)
marn$Gwangju_n1 <- as.numeric(marn$Gwangju)
 smarn <- marn[,c(7,8,9,10,11,12)]
View(smarn) 
names(smarn) <-c("Year","Seoul","Busan","Daegu","Incheon","Gwangju")
write.table(sdemog,file="smarn.csv",sep=",",row.names=FALSE,col.names = TRUE)