Sign Up

Sign Up to our social questions and Answers Engine to ask questions, answer people’s questions, and connect with other people.

Have an account? Sign In

Have an account? Sign In Now

Sign In

Login to our social questions & Answers Engine to ask questions answer people’s questions & connect with other people.

Sign Up Here

Forgot Password?

Don't have account, Sign Up Here

Forgot Password

Lost your password? Please enter your email address. You will receive a link and will create a new password via email.

Have an account? Sign In Now

You must login to ask question.(5)

Forgot Password?

Need An Account, Sign Up Here

Please briefly explain why you feel this question should be reported.

Please briefly explain why you feel this answer should be reported.

Please briefly explain why you feel this user should be reported.

Sign InSign Up

ITtutoria

ITtutoria Logo ITtutoria Logo

ITtutoria Navigation

  • Python
  • Java
  • Reactjs
  • JavaScript
  • R
  • PySpark
  • MYSQL
  • Pandas
  • QA
  • C++
Ask A Question

Mobile menu

Close
Ask a Question
  • Home
  • Python
  • Science
  • Java
  • JavaScript
  • Reactjs
  • Nodejs
  • Tools
  • QA
Home/ Questions/Resolved the problem of the error in meem(object, conlin, control$niterem) : singularity in backsolve at level 0, block 1
Next
Answered
Adonis O'Kelly
  • 28
Adonis O'Kelly
Asked: May 18, 20222022-05-18T19:00:58+00:00 2022-05-18T19:00:58+00:00In: r

Resolved the problem of the error in meem(object, conlin, control$niterem) : singularity in backsolve at level 0, block 1

  • 28

. Advertisement .

..3..

. Advertisement .

..4..

As advised, I used some code samples in another forum, but it could not improve the problem. My question is the “error in meem(object, conlin, control$niterem) : singularity in backsolve at level 0, block 1” in r – How to solve it? The command line is:

data.frame': 972 obs. of 7 variables:
 $ data_mTBS : num 20.3 22.7 0 47.8 58.7 ...
 $ data_tooth: num 1 1 1 1 1 1 1 1 1 1 ...
 $ Adhesive : Factor w/ 4 levels "C-SE2","C-UBq",..: 2 2 2 2 2 2 2 2 2 2 ...
 $ Approach : Factor w/ 2 levels "ER","SE": 1 1 1 1 1 1 1 1 1 1 ...
 $ Aging : Factor w/ 2 levels "1w","6m": 1 1 1 1 1 1 2 2 2 2 ...
 $ data_name : Factor w/ 40 levels "C-SE2-1","C-SE2-10",..: 11 11 11 11 11 11 11 11 11 11 ...
 $ wait : Factor w/ 2 levels "no","yes": 1 1 1 1 1 1 1 1 1 1 ...
 head(Data)
 
 
  data_mTBS data_tooth Adhesive Approach Aging data_name wait
 1 20.27 1 C-UBq ER 1w C-UBq-1 no
 2 22.73 1 C-UBq ER 1w C-UBq-1 no
 3 0.00 1 C-UBq ER 1w C-UBq-1 no
 4 47.79 1 C-UBq ER 1w C-UBq-1 no
 5 58.73 1 C-UBq ER 1w C-UBq-1 no
 6 57.02 1 C-UBq ER 1w C-UBq-1 no
LME_01<-lme(data_mTBS ~ Adhesive*Approach*Aging*wait, na.action=na.exclude,data = Data, random = ~ 1|data_name);
contrast_Aging<-contrast(LME_01,a = list(Aging =c("1w"),Adhesive = levels(Data$Adhesive),Approach = levels(Data$Approach) ),b = list(Aging =c("6m"), Adhesive = levels(Data$Adhesive),Approach = levels(Data$Approach)))
 
 c1<-as.matrix(contrast$X)
 Contrastsi2<-summary(glht(LME_01, c1))
contrast_Approach<-contrast(LME_01,
  a = list(Approach = c("SE"), Aging =levels(Data$Aging) ,Adhesive = levels(Data$Adhesive)),
  b = list(Approach = c("ER"), Aging =levels(Data$Aging) ,Adhesive = levels(Data$Adhesive)))
 
 c2<-as.matrix(contrast$X)
 Contrastsi3<-summary(glht(LME_01, c2))

and the result:

Error in MEEM(object, conLin, control$niterEM) : Singularity in
  backsolve at level 0, block 1

What does the message mean? Can you advise me to fix it? If you have other better answers, leave them in the answer box below.

mixed-models
  • 1 1 Answer
  • 254 Views
  • 0 Followers
  • 0
Answer
Share
  • Facebook
  • Report

1 Answer

  • Voted
  • Oldest
  • Recent
  • Random
  1. Best Answer
    dttutoria Expert
    2022-06-22T08:30:28+00:00Added an answer on June 22, 2022 at 8:30 am

    The cause: Compared to many other R modeling functions, lme is a little more ignorant or stubborn. These routines either directly notify you when confounded fixed effects are present or discard some of them for you. That is the cause of the “error in meem(object, conlin, control$niterem) : singularity in backsolve at level 0, block 1”.

    You’ll see that knowing wait=="no" is equivalent to knowing Adhesive=="C-UBq"

    Solution:

    Using lme4::lmer will help you.

    library(lme4)
    LME_02<-lmer(data_mTBS ~ Adhesive*Approach*Aging*wait+
    (1|data_name),
    na.action=na.exclude,data = dd)
    • 0
    • Reply
    • Share
      Share
      • Share on Facebook
      • Share on Twitter
      • Share on LinkedIn
      • Share on WhatsApp
      • Report

Leave an answer
Cancel reply

You must login to add an answer.

Forgot Password?

Need An Account, Sign Up Here

Sidebar

Ask A Question
  • How to Split String by space in C++
  • How To Convert A Pandas DataFrame Column To A List
  • How to Replace Multiple Characters in A String in Python?
  • How To Remove Special Characters From String Python

Explore

  • Home
  • Tutorial

Footer

ITtutoria

ITtutoria

This website is user friendly and will facilitate transferring knowledge. It would be useful for a self-initiated learning process.

@ ITTutoria Co Ltd.

Tutorial

  • Home
  • Python
  • Science
  • Java
  • JavaScript
  • Reactjs
  • Nodejs
  • Tools
  • QA

Legal Stuff

  • About Us
  • Terms of Use
  • Privacy Policy
  • Contact Us

DMCA.com Protection Status

Help

  • Knowledge Base
  • Support

Follow

© 2022 Ittutoria. All Rights Reserved.

Insert/edit link

Enter the destination URL

Or link to existing content

    No search term specified. Showing recent items. Search or use up and down arrow keys to select an item.