LASSO_model2_fit: LASSO model fit This function train LASSO model on train set...
In czang97/mpred: Predict unmeasured metabolites

LASSO model fit This function train LASSO model on train set and test on test set and evaluate model fit

1 2	LASSO_model2_fit(train, test, m_id_sort, i, eval = "r2", num_folds = 10)

`train`	training dataset
`test`	test dataset
`m_id_sort`	metabolite name vector
`i`	response metabolite's index, used in for loop
`eval`	model fit evaluation, options are r-squared and MSE. Default to r-squared
`number`	of folds in lasso cv Default to 10 folds

MSE <- c()
r2<- c()
for (i in (1:length(m_id_sort))){
 set.seed(1)
 MSE[i] <- LASSO_model2_fit(train, test, m_id_sort, i, eval = "mse")
 r2[i] <- LASSO_model2_fit(train, test, m_id_sort, i, eval = "r2")
}