having trouble with function to perform cross validation for polynomial regression to estimate mean squared error in R

Question

k-fold cross-validated MSE for polynomial regression Inputs: x: vector of explanatory variable, y: vector of response variable, a vector degree of the degrees of polynomial