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

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

Using R code, create a function called inner$\_$prod that will calculate the inner product of two vectors