# 연습문제3-2
Rainfalls <- c(100,50,150,120,80,300,600,300,200,100,70,100)
sumRainfalls <- sum(Rainfalls)
avgRainfalls <- mean(sumRainfalls)
posMaxRainfalls <- which.max(Rainfalls)
posMinRainfalls <- which.min(Rainfalls)
print("월별 강우량의 평균: ")
print(avgRainfalls)
print("비가 가장 많이 온 달: ")
print(posMaxRainfalls)
print("비가 가장 적게 온 달: ")
print(posMinRainfalls)
#연습문제 3-3
birthday1 <- "19980618"
birthdayYear1 <- as.numeric(substr(birthday1,1,4))
birthday2 <- "19901214"
birthdayYear2 <- as.numeric(substr(birthday2,1,4))
ThisYear <- as.numeric(format(Sys.Date(),"%Y"))
Age1 <- ThisYear-birthdayYear1
Age2 <- ThisYear-birthdayYear2
Agelist <- c(Age1,Age2)
AgeDifference <- max(Agelist)-min(Agelist)
print("두사람의 나이 차이는 ")
print(AgeDifference)
IyDsl7DsirXrrLjsoJwzLTIgClJhaW5mYWxscyA8LSBjKDEwMCw1MCwxNTAsMTIwLDgwLDMwMCw2MDAsMzAwLDIwMCwxMDAsNzAsMTAwKQpzdW1SYWluZmFsbHMgPC0gc3VtKFJhaW5mYWxscykKYXZnUmFpbmZhbGxzIDwtIG1lYW4oc3VtUmFpbmZhbGxzKQpwb3NNYXhSYWluZmFsbHMgPC0gd2hpY2gubWF4KFJhaW5mYWxscykKcG9zTWluUmFpbmZhbGxzIDwtIHdoaWNoLm1pbihSYWluZmFsbHMpCnByaW50KCLsm5Trs4Qg6rCV7Jqw65+J7J2YIO2Pieq3oDogIikKcHJpbnQoYXZnUmFpbmZhbGxzKQpwcmludCgi67mE6rCAIOqwgOyepSDrp47snbQg7JioIOuLrDogIikKcHJpbnQocG9zTWF4UmFpbmZhbGxzKQpwcmludCgi67mE6rCAIOqwgOyepSDsoIHqsowg7JioIOuLrDogIikKcHJpbnQocG9zTWluUmFpbmZhbGxzKQoKI+yXsOyKteusuOygnCAzLTMgCmJpcnRoZGF5MSA8LSAiMTk5ODA2MTgiCmJpcnRoZGF5WWVhcjEgPC0gYXMubnVtZXJpYyhzdWJzdHIoYmlydGhkYXkxLDEsNCkpCmJpcnRoZGF5MiA8LSAiMTk5MDEyMTQiCmJpcnRoZGF5WWVhcjIgPC0gYXMubnVtZXJpYyhzdWJzdHIoYmlydGhkYXkyLDEsNCkpClRoaXNZZWFyIDwtIGFzLm51bWVyaWMoZm9ybWF0KFN5cy5EYXRlKCksIiVZIikpCkFnZTEgPC0gVGhpc1llYXItYmlydGhkYXlZZWFyMQpBZ2UyIDwtIFRoaXNZZWFyLWJpcnRoZGF5WWVhcjIKQWdlbGlzdCA8LSBjKEFnZTEsQWdlMikKQWdlRGlmZmVyZW5jZSA8LSBtYXgoQWdlbGlzdCktbWluKEFnZWxpc3QpCnByaW50KCLrkZDsgqzrnozsnZgg64KY7J20IOywqOydtOuKlCAiKQpwcmludChBZ2VEaWZmZXJlbmNlKQo=