Let x $=($x$1,$ x$2,...,$ x$300)$ and y $=($y$1,$ y$2,...,$ y$300)$ be two R vectors created as follows:

set.seed$(1)$

x $<-$ sample$(1$:$1000,300,$ replace$=$T$)$

y $<-$ sample$(1$:$1000,300,$ replace$=$T$)$

$1.$ Using R code, create a function called inner$\_$prod that will calculate

the inner product of two vectors

$2.$ Create a new vector called my$\_$vec by selecting the elements of x that are larger than $500$