How should I run a code in Rstudio that will read the number of days in a month of a specific year?

Question

Write a script to calculate the number of days in a month if a month and year is defined. This should work starting in year 2000 and extending to 2025. Use if, else if, and if statements. (17 pts)

Before starting in R, write some short pseudo code. Include appropriate commenting in the R code.

The first 2 lines of code could be:

Year <- 2001

Month <- “May”

Answer 1

Pseudo Code:

1. Initialize Variables:
2. Set Year to a given value.
3. Set Month to a given value.
4. Check for Valid Year:
5. If Year is between 2000 and 2025, proceed.
6. Else, print an error message.
7. Determine Days in the Month:
8. Use if, else if, and else statements to assign the correct number of days to each month.
9. February needs special handling:
10. If Year is a leap year (divisible by 4 but not 100, except divisible by 400), set February to 29 days.
11. Otherwise, set February to 28 days.
12. Print the Result.

# Define the year and month

Year <- 2001

Month <- "May"

# Check if the year is within the valid range

if (Year >= 2000 & Year <= 2025) {

# Determine number of days based on the month

if (Month == "January" | Month == "March" | Month == "May" |

Month == "July" | Month == "August" | Month == "October" | Month == "December") {

Days <- 31

} else if (Month == "April" | Month == "June" | Month == "September" | Month == "November") {

Days <- 30

} else if (Month == "February") {

# Check if it's a leap year

if ((Year %% 4 == 0 & Year %% 100 != 0) | (Year %% 400 == 0)) {

Days <- 29

} else {

Days <- 28

}

} else {

Days <- NA # Invalid month input

print("Error: Invalid month name. Please enter a valid month.")

}

# Print result if month was valid

if (!is.na(Days)) {

print(paste(Month, Year, "has", Days, "days."))

}

} else {

print("Error: Year out of range. Please enter a year between 2000 and 2025.")

}