[R] How to troubleshoot error “cannot coerce class ”“group”“ to a data.frame”?

[Rui Barradas]

Hello,

This is cross-posted from StackOverflow em Português [1].
Cross-posting is not well seen and you should wait for a while for an 
answer given where you have you original question before posting 
somewhere else.

[1] 
https://pt.stackoverflow.com/questions/330200/como-solucionar-erro-cannot-coerce-class-group-to-a-data-frame

Note: I will try to answer to it, if I have the time, in SOpt. This does 
not mean that you will not get other answers, for instance in R-Help.

Rui Barradas


Às 03:34 de 18/09/2018, Fabiano França escreveu:
> Dear Volunteers,
> When running the scriptbelow, specifically in the part of reproduction of the data.framesreturned the error:
> 
> Error in as.data.frame.default(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors) : cannot coerce class ""group"" to a data.frame
> 
> I searched the internet and could not reproduce the suggestions for my case, does anyone tell me a way?
> 
> setwd("https://drive.google.com/open?id=1FDMZfWrEjsvleVdNOUiPh8REGjvQHKQx")
> rend <- read.table('IVCM.txt', header = TRUE, sep="\t")
> rend <- transform(rend, Fungicidas=factor(Fungicidas), Doses=factor(Doses), Rep=factor(Rep))
> str(rend)#---------------------------------------------------------------------------# unfolding the interaction in Tukey tests
> 
> require(agricolae)
> require(plyr)
> 
> KinA <- sapply(levels(rend$Doses), simplify=FALSE,
>                 function(Doses){
>                   with(subset(rend, Doses==Doses),
>                        HSD.test(IVCM, Fungicidas,
>                                 DFerror=df.residual(m0),
>                                 MSerror=deviance(m0)/df.residual(m0)))
>                 })
> 
> KinA <- llply(KinA, NULL)
> KinA$M <- gsub(" ", "", KinA$M, fixed=TRUE)
> KinA$trt <- as.factor(as.numeric(as.character(KinA$trt)))
> str(KinA)
> 
> AinK <- sapply(levels(rend$Fungicidas), simplify=FALSE,
>                 function(Fungicidas){
>                   with(subset(rend, Fungicidas==Fungicidas),
>                        HSD.test(IVCM, Doses,
>                                 DFerror=df.residual(m0),
>                                 MSerror=deviance(m0)/df.residual(m0)))
>                 })
> 
> AinK <- llply(AinK, NULL)
> AinK$M <- toupper(gsub(" ", "", AinK$M, fixed=TRUE))
> AinK$trt <- as.factor(as.numeric(as.character(AinK$trt)))
> str(AinK)
> 
> Many thanks
> 
> Regards,
> 
> Fabiano Fran�a da Silva
> Doutorando em Fitotecnia - ESALQ/USP
> MSc Fitotecnia - UFLA
> Eng�. Agr�nomo - UFLA
> (35) 9 9155-5443 TIM
> 
> 
> 
> 	[[alternative HTML version deleted]]
> 
> 
> 
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>