Выберите функцию с помощью пользовательского ввода

Question

У меня есть список функций, и я хотел бы, чтобы выбрать один из них пользовательского ввода, используйте его для регрессии, а затем отобразить вывод функции резюме и участка ,

re_show<-function(y){ 
     f1<-x+I(x^2) 
     f2<-I(x^0.5)+I(x^2) 
     ... 
     f20<-x+I(x^0.5)+I(x^2) 

     message("Choose the model") 
     i <- readLines(n = 1) 
     summary(lm(y~i)) 
     plot(lm(y~i)) 
     } 

Есть ли у вас какие-либо идеи о том, как решить эту проблему? Спасибо.

Answer 1

Ну вот наиболее обобщенный ответ, который я могу предоставить для вашей функции. Я изменил его, чтобы принять зависимую переменную, независимую переменную и набор данных. Если вам не нравится этот параметр, вы всегда можете установить параметры по умолчанию или изменить функцию на ваш конкретный сценарий. Эта функция, в ее нынешнем виде, позволит вам использовать любой набор данных, который вы хотите (без данных образца). Я также добавил оператор switch, чтобы пользователь мог выбрать, какую модель использовать для stdin. Простой пример показан с набором данных iris.

re_show<-function(dv, iv, dat){ 

    # Define your variables to evaluate 
    x <- dat[,iv] 
    y <- dat[,dv] 

    # choose the function 
    message("Choose the model") 
    fun <- readLines(n = 1) 

    # The switch statement 
    i <- switch(fun, 
       f1 = {x+I(x^2)}, 
       f2 = {I(x^0.5)+I(x^2)}, 
       # add your remaining functions 
       f20 = {x+I(x^0.5)+I(x^2)} 
) 

    # finish your analysis 
    print(summary(lm(y~i))) 
    plot(lm(y~i)) 
} 

data(iris) 
re_show("Sepal.Length", "Sepal.Width", iris)