Write a function named month$\_$convert$($x$,$ from$\_$lang, to$\_$lang$)$ that will convert month names from one language to another. The function will accept three arguments: x$,$ which is a factor with month information; the language from which we are translating from$\_$lang; and the language to which we are translating to$\_$lang.

I have uploaded a file called $$month$\_$names.txt$$ on Canvas which has the month names in several European languages. Use

$2$

month$\_$names $<-$ read.delim$("$month$\_$names.txt$",$ encoding$=$"UTF$-8",$ row.names$=1)$ to import the file.

Then apply your conversion function, for example:

## $[1]$ marzo marzo febrero junio

## Levels: febrero junio marzo

If the input contains a value that is not a real month, then it will be replaced with NA$.$ Any values that are not real months should have the corresponding levels removed as well.

## $[1]$ marzo marzo febrero junio

## Levels: febrero junio marzo

The order of the levels should remain the same before and after conversion between languages $($they should not be realphabetized$).$

## $[1]$ August April December April

## Levels: April August December

month$\_$convert$($x$,$ "English", "Italian"$)$ ## $[1]$ agosto aprile dicembre aprile

## Levels: aprile agosto dicembre