### perform calculations required for an umbrella review
umb.full <- umbrella(df.SMD)
### stratify evidence according to the algorithmic GRADE criteria
evid_grade <- add.evidence(umb.full, criteria = "GRADE")
is.na(evid_grade$Pharmacological$evidence)
evid_empty <- drop.evidence(evid_grade)
is.na(evid_empty$Pharmacological$evidence)
Run the code above in your browser using DataLab