# NOT RUN {
##Regression (MSE)
data(attenu,package = 'datasets')
result<-kernel_lasso_expansion(x=attenu[,-c(3,5)],y=attenu[,5],
standard = 'max_min',sigma=0.01,control = lasso.control(nfolds=3,type.measure = 'mse'))
summary(result)
#Plot the lasso
plot(result$lasso)
#Result
result$original ##The original feature space
result$expansion ##The feature space after expansion
result$final_feature ##The name of the final feature
result$final_data ##The dataframe of final feature
# }
Run the code above in your browser using DataLab