getwd()

setwd("C:/Users/MyCom/R/수업자료/data")

students<-read.table("C:/Users/MyCom/R/수업자료/data/r2.txt",sep=" ",header=T,encoding = "UTF-8")

str(students)

students

studentss <- read.csv("C:/Users/MyCom/R/수업자료/data/students.csv",fileEncoding = "UCS-2LE")

studentss

#큰따음표 
students<-read.table("C:/Users/MyCom/R/수업자료/data/r2.txt",header=T,as.is=T,encoding = "UTF-8")
write.table(students,file = "C:/Users/MyCom/R/수업자료/data/output.txt")

#따음표 제거
write.table(students,file = "C:/Users/MyCom/R/수업자료/data/output.txt",quote=F)

#CSV파일로 저장
write.csv(students,file="C:/Users/MyCom/R/수업자료/data/output.csv",quote=F)

#조건문 [] 행/열 조건 명시 
#벡터의 경우
test =c(15,20,30,NA,45)
test[test<40]
test[test%%3!=0]

test[is.na(test)] #na인 요소 추출
test[!is.na(test)]
test[test%%2==0&!is.na(test)]

# 조건문 [] 행/열 조건 명시
# 데이터 프레임의 경우
characters=data.frame(name=c("길동","춘향","철수"),age=c(30,16,21),gender=factor(c("M","F","M")))
characters

characters[characters$gender=="F",]

characters[characters$age<30&characters$gender=="M",]

#조건문 if문 사용
x = 5 
if(x%%2==0){
 print('x는 짝수') 
} else{
  print('x는 홀수')
}  

x=-1
if(x>0){
  print('x is a positive value')  
}else if(x<0){
  print('x is a negative value')
}else{
  print('x is zero')
}

#조건문 ifelse문 사용
x=c(-5:5)
options(digits=3) #숫자 표현시 유효자릿수를 3자리로 설정
sqrt(x)

sqrt(ifelse(x>=0, x, NA)) #NaN이 발생하지 않게 음수면 NA로 표시 

#조건문 ifelse문 사용
students =read.csv("C:/Users/MyCom/R/수업자료/data/students.csv",fileEncoding = "UCS-2LE")
students

students[,2]=ifelse(students[,2]>=0&students[,2]<=100,students[,2],NA)
students[,3]=ifelse(students[,3]>=0&students[,3]<=100,students[,3],NA)
students[,4]=ifelse(students[,4]>=0&students[,4]<=100,students[,4],NA)
students

#반복문 repeat{}
i=1
repeat {
  if(i>10){
    break
  } else{
    print(i)
    i=i+1
  }
}

#while문 사용 
i=1
while(i<11){
  print(i)
  i = i+1
}

#구구단 2단 
i=1
while(i<10){
  print(paste(2,"x",i,"=",2*i))
  i = i+1
}

#for

for(i in 1:10){
  print(i)
}

# for 문 구구단
for(i in 2:9){
  for(j in 1:9){
    print(paste(i,"X",j,"=",i*j))
  }
}

#1~10까지 수 중 짝수만 출력
for(i in 1:10){
  if(i%%2==0){
      print(i) 
   }
  }

#1~10까지 수 중 홀수만 출력
for(i in 1:10){
  if(i%%2!=0){
    print(i) 
  }
}

#1~10 까지 수 중 소수 출력하기 
for(i in 1:10){
  check=0
  for(j in 1:i){
    if(i%%j==0){
      check=check+1
    }
}
  if(check==2){
    print(i)
  }
}

# for문으로 NA처리
students=read.csv("C:/Users/MyCom/R/수업자료/data/students.csv",fileEncoding = "UCS-2LE")
students

for(i in 2:4){
  students[,i]=ifelse(students[,i]>=0 & students[,i]<=100,students[,i],NA)
}

students

#함수 
fact = function(x){
  fa=1
  while (x>1) {
    fa = fa*x
    x=x-1
    
  }
  return(fa)
}

fact(5)