Comments (1)
I'm just gonna attach the full reproducible example if it helps (Files: temp_files.zip)
options <- readRDS(options, "options.RDS")
dataset <- readRDS(dataset, "dataset.RDS")
fit <- metamisc::valmeta(
measure = options[["measure"]],
cstat = if (options[["measure"]] == "cstat" && options[["inputMeasure"]] != "") dataset[, options[["inputMeasure"]]],
[cstat.se](https://eur05.safelinks.protection.outlook.com/?url=http%3A%2F%2Fcstat.se%2F&data=05%7C01%7CT.Debray%40umcutrecht.nl%7C00f15e6c309f40fbbd0608dabc2ab030%7Cdcdf4a3dd0c04a6394cf781981249be5%7C0%7C0%7C638029189122307954%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=l1gRy43kcQfi1h7w2Q3f3WMqIwEd66xsNgpDuVusZ5c%3D&reserved=0) = if (options[["measure"]] == "cstat" && options[["inputSE"]] != "") dataset[, options[["inputSE"]]],
cstat.cilb = if (options[["measure"]] == "cstat" && sum(unlist(options[["inputCI"]]) != "") == 2) dataset[, options[["inputCI"]][[1]][1]],
cstat.ciub = if (options[["measure"]] == "cstat" && sum(unlist(options[["inputCI"]]) != "") == 2) dataset[, options[["inputCI"]][[1]][2]],
OE = if (options[["measure"]] == "OE" && options[["inputMeasure"]] != "") dataset[, options[["inputMeasure"]]],
OE.se = if (options[["measure"]] == "OE" && options[["inputSE"]] != "") dataset[, options[["inputSE"]]],
OE.cilb = if (options[["measure"]] == "OE" && sum(unlist(options[["inputCI"]]) != "") == 2) dataset[, options[["inputCI"]][[1]][1]],
OE.ciub = if (options[["measure"]] == "OE" && sum(unlist(options[["inputCI"]]) != "") == 2) dataset[, options[["inputCI"]][[1]][2]],
N = if (options[["inputN"]] != "") dataset[, options[["inputN"]]],
O = if (options[["inputO"]] != "") dataset[, options[["inputO"]]],
E = if (options[["inputE"]] != "") dataset[, options[["inputE"]]],
slab = if (options[["inputLabels"]] != "") dataset[, options[["inputLabels"]]],
method = "ML",
pars = list(
model.oe = if (options[["measure"]] == "OE") options[["linkOE"]],
model.cstat = if (options[["measure"]] == "cstat") options[["linkCstat"]]
)
)
from metamisc.
Related Issues (3)
Recommend Projects
-
React
A declarative, efficient, and flexible JavaScript library for building user interfaces.
-
Vue.js
🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
-
Typescript
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
-
TensorFlow
An Open Source Machine Learning Framework for Everyone
-
Django
The Web framework for perfectionists with deadlines.
-
Laravel
A PHP framework for web artisans
-
D3
Bring data to life with SVG, Canvas and HTML. 📊📈🎉
-
Recommend Topics
-
javascript
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
-
web
Some thing interesting about web. New door for the world.
-
server
A server is a program made to process requests and deliver data to clients.
-
Machine learning
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
-
Visualization
Some thing interesting about visualization, use data art
-
Game
Some thing interesting about game, make everyone happy.
Recommend Org
-
Facebook
We are working to build community through open source technology. NB: members must have two-factor auth.
-
Microsoft
Open source projects and samples from Microsoft.
-
Google
Google ❤️ Open Source for everyone.
-
Alibaba
Alibaba Open Source for everyone
-
D3
Data-Driven Documents codes.
-
Tencent
China tencent open source team.
from metamisc.