Issue with meffil.ewas model

[AshutoshTomar]

Hi Matt,
I am facing an issue with the model for EWAS analysis. I would be grateful if you could please suggest the following:

grp <- grp[match(colnames(Mval1), rownames(grp)), , drop=FALSE]
> stopifnot(identical(rownames(grp), colnames(Mval1)))
> isv <- isv[match(colnames(Mval1), rownames(isv)), , drop=FALSE]
> stopifnot(identical(rownames(isv), colnames(Mval1)))
> ewas.ret <- meffil.ewas(Mval1, variable=grp, covariates=isv, isva=F)
Error in meffil.ewas(Mval1, variable = grp, covariates = isv, isva = T) : 
  length(all.samples) == length(variable) is not TRUE
> dim(grp)
[1] 52  1
> dim(isv)
[1] 52 13
> dim(Mval1)
[1] 898469     52
> class(grp)
[1] "data.frame"
> class(isv)
[1] "data.frame"
> summary(grp)
 grp   
 M: 8  
 O:22  
 Y:22