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:

x $<-$ factor$($c$("$March$",$"March","February","June"$))$

month$\_$convert$($x$,$ "English", "Spanish"$)$

## $[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.

x $<-$ factor$($c$("$March$",$"March","February","June","Jaly"$))$

month$\_$convert$($x$,$ "English", "Spanish"$)$

## $[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$).$

x $<-$ factor$($c$("$August$",$ "April", "December", "April"$))$

x

## $[1]$ August April December April

## Levels: April August December

month$\_$convert$($x$,$ "English", "Italian"$)$

## $[1]$ agosto aprile dicembre aprile

## Levels: aprile agosto dicembre

$---$ month$\_$names file:

language m$1$ m$2$ m$3$ m$4$ m$5$ m$6$ m$7$ m$8$ m$9$ m$10$ m$11$ m$12$

English January February March April May June July August September October November December

Czech leden $$nor b$$ezen duben kv$$ten $$erven $$ervenec srpen z$$jen listopad prosinec

Danish januar februar marts april maj juni juli august september oktober november december

Dutch januari februari maart april mei juni juli augustus september oktober november december

Finnish tammikuu helmikuu maaliskuu huhtikuu toukokuu kes$$kuu hein$$kuu elokuu syyskuu lokakuu marraskuu joulukuu

French janvier f$$vrier mars avril mai juin juillet ao$$t septembre octobre novembre d$$cembre

German Januar Februar M$$rz April Mai Juni Juli August September Oktober November Dezember

Hungarian janu$$r febru$$r m$$rcius $$prilis m$$jus j$$nius j$$lius augusztus szeptember okt$$ber november december

Icelandic jan$$ar febr$$ar mars apr$$l ma$$ j$$n$$ j$$l$$g$$st september okt$$ber n$$vember desember

Italian gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre

Norwegian januar februar mars april mai juni juli august september oktober november desember

Polish stycze$$ luty marzec kwiecie$$ maj czerwiec lipiec sierpie$$ wrzesie$$ pa$$dziernik listopad grudzie$$

Portuguese janeiro fevereiro mar$$o abril maio junho julho agosto setembro outubro novembro dezembro

Spanish enero febrero marzo abril mayo junio julio agosto septiembre octubre noviembre diciembre

Swedish januari februari mars april maj juni juli augusti september oktober november december

Turkish ocak $$ubat mart nisan mayis haziran temmuz a$$ustos eyl$$l ekim kas$$m aral$$k

$---$ PLease solve in R$!$ willing to like