2016-07-25 19 views
-1

Ich habe Probleme beim Exportieren meiner TukeyHSD Ergebnisse, so dass sie in Zellen getrennt sind, wenn ich die Ergebnisse in etwas wie Excel öffnen. Ich habe versucht, mit write.csv(), aber es sagt:Exportieren von TukeyHSD Ergebnissen

cannot coerce class "c("TukeyHSD", "multicomp")" to a data.frame 

Wie kann ich meine TukeyUSD Ergebnisse in einer Art und Weise erfassen, die ich einfach kopieren kann und sie in eine Excel-Tabelle einfügen?

+0

Können Sie bearbeiten Sie bitte diese eine [reproduzierbare Frage] (http://stackoverflow.com/help/mcve) zu machen? Ich finde es fantastisch, dass Sie an der SO-Community teilnehmen. Sie müssen sich ein wenig Zeit nehmen, um zu lernen, wie man ein guter SO-Bürger wird. Dies ist wohl die dritte nicht reproduzierbare Frage, die Sie in einer Woche gestellt haben. Wenn Sie eine Antwort erhalten, die Ihr Problem löst, nehmen Sie sich bitte die Zeit, auf das Kontrollkästchen neben der Antwort zu klicken (Annahme der Antwort). – dayne

+0

Ich werde glücklich sein, die Down-Abstimmung zu entfernen, sobald Sie die Frage bearbeiten. Sehen Sie in meiner Antwort, wie ich ein vollständiges Beispiel zur Verfügung gestellt habe, um den Code laufen zu lassen und das Problem zu veranschaulichen. Wenn Sie nach einem schnellen Beispiel suchen, können Sie häufig zur Hilfedatei für diese Funktion gehen. In diesem Fall habe ich das Beispiel von "TukeyHSD" genommen. – dayne

+0

Ich habe es herausgefunden, aber ich werde sicher dem nächsten Rat folgen, dass ich Hilfe brauche. Vielen Dank! –

Antwort

2

TukeyHSD gibt ein Objekt der Klasse "TukeyHSD" zurück. Sie können die Ergebnistabelle vom Objekt "TukeyHSD" mit dem Operator $ extrahieren. Sie können die Tabelle dann beliebig exportieren oder ändern.

fm1 <- aov(breaks ~ wool + tension, data = warpbreaks) 
res <- TukeyHSD(fm1, "tension", ordered = TRUE) 
as.data.frame(res$tension) 
#   diff  lwr  upr  p adj 
# M-H 4.722222 -4.6311985 14.07564 0.447421021 
# L-H 14.722222 5.3688015 24.07564 0.001121788 
# L-M 10.000000 0.6465793 19.35342 0.033626219 
0

Dieser arbeitete für mich

ANOVA_Tc<-aov(Concentration~ Sample, data= Tc) 

summary(ANOVA_Tc) 

TKHSD_Tc <- TukeyHSD(ANOVA_Tc) 

TK<-(TKHSD_Tc) 

TK_data<-as.data.frame(TK[1:1]) # the [1:1] locates the part of the output to be exported 

write.csv(TK_data, 'TK_data.csv')