Abgeleitet Tabellenname in Auswertungsfunktion in r

Question

Ich habe mein Modell generiert

assign(paste("Model", MV1, sep = '') , glm(tv1 ~., family=binomial(link='logit'), 
              data=train70)) 

Jetzt mit Ich möchte die Auswertungsfunktion auf meinem Ausgang laufen. Ich habe den folgenden Code verwendet, aber anstatt die Koeffizienten usw. für mein Modell zu generieren, bekomme ich eine Zusammenfassung einer Variablen. Wie optimiere ich meinen Code, um die Zusammenfassung für das Modell auszuführen?

summary(paste("Model", MV1, sep = '')) 

Answer 1

Sie können get Funktion verwenden, die Sie mit dem Namen eines Charakters bewerten das Objekt hilft. Hier ist ein Spielzeug Beispiel:

x <- 1:10 
y <- x + rnorm(10) 
assign("model", lm(y ~ x)) 
summary(get("model")) 

Call: 
lm(formula = y ~ x) 

Residuals: 
    Min  1Q Median  3Q  Max 
-0.4863 -0.3476 -0.1218 0.2645 0.7806 

Coefficients: 
      Estimate Std. Error t value Pr(>|t|)  
(Intercept) -0.01189 0.30979 -0.038  0.97  
x   0.93818 0.04993 18.791 6.65e-08 *** 
--- 
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

Residual standard error: 0.4535 on 8 degrees of freedom 
Multiple R-squared: 0.9778, Adjusted R-squared: 0.9751 
F-statistic: 353.1 on 1 and 8 DF, p-value: 6.646e-08 

Also für Ihren Fall summary(get(paste("Model", MV1, sep = ''))) sollte für Sie arbeiten.