Question

Use R to solve these problems

8. The year is divided into four seasons: spring, summer, fall and winter While the exact dates that the seasons change vary a little bit from year to year because of the way that the calendar is constructed, we will use the following dates for this exercise: Season rin Summer Fall Winter Start March June September December End Ma August November Februa Create a program that reads a month from the user. The user will enter the name of the month as a string. Then your program should display the season associated with the month that was entered 9. How to get the nth largest value of given array? (Use for loop for this problem. Do not use existing codes. Use your own codes). For example, in given list [11,23,58,31,56,77,43,12,65,19], if n is defined as 3. The program will print 58

Answer 1

Please give thumbs up if you find it helpful. Let me now if you have any doubt.

Answer 8)

month=readline(prompt="Enter the month name: ")

if(month %in% c('March','April','May')){
print('Season is Spring')
}else if(month %in% c('June','July','August')){
print('Season is Summer')
}else if(month %in% c('September','October','November')){
print('Season is Fall')
}else if(month %in% c('December','January','February')){
print('Season is Winter')
}else{
print('You have entered a wrong month!')
}

Answer 9)

array <- c(11,23,58,31,56,77,43,12,65,19)
n=3

for (j in (length(array)-1):1) {
for (i in j:(length(array)-1)) {
if (array[i] < array[i+1]) {
temp <- array[i]
array[i] <- array[i+1]
array[i+1] <- temp
}
}
}

print(array[3]) #print the nth largest element

Output:

8.

Source on Save 1 month-readline (prompt-"Enter the month name: ") 3- 4 print('Season is Spring' 5. 6 print( Season is Summer') 7-}else if(month %in% c(' september', 'October', 'November')){ if(month %in% c("March', 'April', 'May ')){ }else if(month %in% c("June', 'July', 'August')){ 8 print('Season is Fall' 9-}else if(month Xin% c(' December', 'January', 'February')){ 10 print('Season is Winter' 11 else 12 print C 'You have entered a wrong month!' 13 14 15 16 16:1 (Top Level) Console Terminal > month-readline (prompt-"Enter the month name: ") Enter the month name: October > if (month %in% c ("March' , 'April' , 'May')){ + print( Season is Spring'" + }else if(month %in% c("June', 'July', 'August')){ + print('Season is Summer') + }else if(month %in% c('September', 'October', 'November')){ + print('Season is Fall' }else if(month %in% c("December', 'January', 'February')){ + print ('Season is Winter') + else + print ('You have entered a wrong month! 1] "Season is Fall'" 2

9.

1 2 arrayc(11,23,58,31,56,77,43,12,65,19) 4 5 for (j in Clength(array)-1):1) 6- for (i in j: Clength(array)-1)I if (array[i< array[i+1]) 1 temp <-array[i] array[i] <- array[i+1] array[i+1] <temp 10 12 13 14 15 print (array [3]) #print the nth largest element 16 1 30:1 (Top Level) Console Terminal >array<- c(11,23,58,31,56,77,43,12,65,19) n-3 > for (j in (length(array)-1):1) +for (i in j: Clength(array)-1)) if (array[i]< array[i+1]) temp <- arrayli arrayL1<- array L1+1] arrayLi+1] <- temp > print (array [3]) #print the nth largest element [1] 58