fork download
  1. # 연습문제3-2
  2. Rainfalls <- c(100,50,150,120,80,300,600,300,200,100,70,100)
  3. sumRainfalls <- sum(Rainfalls)
  4. avgRainfalls <- mean(sumRainfalls)
  5. posMaxRainfalls <- which.max(Rainfalls)
  6. posMinRainfalls <- which.min(Rainfalls)
  7. print("월별 강우량의 평균: ")
  8. print(avgRainfalls)
  9. print("비가 가장 많이 온 달: ")
  10. print(posMaxRainfalls)
  11. print("비가 가장 적게 온 달: ")
  12. print(posMinRainfalls)
  13.  
  14. #연습문제 3-3
  15. birthday1 <- "19980618"
  16. birthdayYear1 <- as.numeric(substr(birthday1,1,4))
  17. birthday2 <- "19901214"
  18. birthdayYear2 <- as.numeric(substr(birthday2,1,4))
  19. ThisYear <- as.numeric(format(Sys.Date(),"%Y"))
  20. Age1 <- ThisYear-birthdayYear1
  21. Age2 <- ThisYear-birthdayYear2
  22. Agelist <- c(Age1,Age2)
  23. AgeDifference <- max(Agelist)-min(Agelist)
  24. print("두사람의 나이 차이는 ")
  25. print(AgeDifference)
  26.  
Success #stdin #stdout 0.28s 40768KB
stdin
Standard input is empty
stdout
[1] "월별 강우량의 평균: "
[1] 2170
[1] "비가 가장 많이 온 달: "
[1] 7
[1] "비가 가장 적게 온 달: "
[1] 2
[1] "두사람의 나이 차이는 "
[1] 8