R Notebook

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

x<-7
y<-5
x+y
#식으로 표현하기
cat(x,"+",y,"=",x+y)
plus<- function(x,y){
  return (cat(x,"+",y,"=",x+y));  
}
# 괄호주의.
plus(3,8)

cat(x,"-",y,"=",x-y)
minus<-function(x,y){return (x-y)}

minus(3,8)
multi <- function(x,y){
  return (cat(x,"*",y,"=",x*y));
}
multi(3,8)
div.float <- function(x,y){
  return (cat(x,"/",y,"=",x/y));
}
div.float(8,3)
div.integer  <- function(x,y){
  return (cat(x,"%/%",y,"=",x%/%y));
}
div.integer(8,3)
div.remainder <- function(x,y){
  return (cat(x,"%%",y,"=",x%%y));
}
div.remainder(8,3)


## 계산기 
x <-3
op <- "+"
y <- 2
calc<-function(x,op,y){
if(op=="+") plus(x,y) else
  if(op=="-") minus(x,y) else
    if(op=="*") multi(x,y) else
      if(op=="/") div.float(x,y) else
        if(op=="%/%") div.integer(x,y) else  
          if(op=="%%") div.remainder(x,y) else
            print("error")
}
calc(5,"%%",2)






#위에 식을 이용해서function으로 만들기 ---이건 틀린거이
임 
# calc<-funticon(x,op,y){
# if(op=="+") plus(x,y) else
#   if(op=="-") minus(x,y) else
#     if(op=="*") multi(x,y) else
#       if(op=="/") div.float(x,y) else
#         if(op=="%/%") div.integer(x,y) else  
#           if(op=="%%") div.remainder(x,y) else
#             print("error")  
#}
# 데이터의 구분: 이산형(셀수있는것)/연속형

#if함수는 연속형 에만 쓰인다. 그래서 위에거(여섯가지 경우의수, 카운트 가능한 경우의 수니까)를 if 안에 넣으면 안됨.

calc<-funticon(x,op,y){
  switch(
    op,
    "+"=plus(x,y),
    "+"=minus(x,y),
    "*"=multi(x,y),
    "/"=div.float(x,y),
    "%/%"=div.integer(x,y),
    "%%"=div.remainder(x,y)
  )}