R Notebook

계산 알고

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<-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")}






#위에 식을 이용해서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)
  )}

        

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Ctrl+Alt+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Ctrl+Shift+K to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.