Nach dem Drucken von influence() Ergebnisse von MetaFormat, wie bekomme ich eine Zeilennummer für jeden Eintrag?

Question

Ich führe eine Meta-Analyse durch. Ich verwende den Befehl influence() für die Ausreißererkennung.

Also, was ich tat, ist die folgende:

outlier1 <- influence(result) 
print(outlier1) 

Das gibt mir 250 Einträge anzeigt, ob eine Studie ausgeschlossen werden muss. Dann muss ich Ausreißerstudien durch Angabe der Zeile löschen. Und hier ist die Sache: Ich habe 250 Studien, und ich möchte die Zeilen nicht manuell zählen, um zu wissen, welche Studien auszuschließen sind.

Hier ist, was das Ergebnis wie folgt aussieht:

Study Indicator_1 Indicator_N Outlier? 
------------------------------------ 

(250 entries) 

Jetzt würde ich gerne wissen, wie ich das gedruckte Ergebnis verändern kann, so dass es wie folgt aussieht:

Number Study Indicator_1 Indicator_N Outlier? 
-------------------------------------------- 

Counting optimal bei 1 beginnen soll .

---

Hier sind die Daten und die Codefolge, die für die Erstellung eines reproduzierbaren Beispiels benötigt werden e:

Daten: http://www.filedropper.com/metadaten

-Code-Sequenz:

install.packages("xlsx") 
install.packages("metafor") 
library(xlsx) 
library(metafor) 

input <-read.xlsx("C:/Users/feal/Documents/BA_MA/Data/01. ID FP/meta_daten.xlsx", sheetName="input") 

## View(input) 

result <-rma(yi=zcor, vi=var, data=input, 
    measure="GEN", method="REML", level=95, 
    slab=paste(author, pub_date, sep=", ")) 

print(result) 

outlier1 <- influence(result) 
print(outlier1) 

---

Danach habe ich die folgenden Ergebnisse zu erhalten, zeigt ein Stern auf der rechten Seite, dass die Ausreißer entfernt werden muss.

Remove-Funktion als ein Beispiel:

input_out1 <-input[-19,] 
print(input_out1) 

Ich will nur jeder Spalte eine Eintragsnummer haben. Oder jeder Eintrag entfernt werden, wo rechts ein Stern ist.

Answer 1

Ok, ich habe es selbst.

Wenn Sie die Ergebnisse so konvertieren können, dass die View()-Funktion verwendet werden kann, werden die Ergebnisse über dem Konsolenfenster in RStudio mit einem Zeilennummernpräfix angezeigt.

Dies ist, was hat es funktioniert:

outputText <-capture.output(influence(result)) 

outputFrame = data.frame(outputText) 

View(outputFrame) 

Grüße, Feal