House1=read.csv("house_test.csv",stringsAsFactors = FALSE)

House_predict = predict(modelo, House1)


prediction = House_predict(sqft_living, price, modelo$fitted.values)
names(prediction) = c("id", "sqft_living", "price", "precioestimado")

prediction = House_predict(sqft_living, price, modelo$fitted.values)
Error in House_predict(sqft_living, price, modelo$fitted.values) :
could not find function "House_predict"