Code Monkey home page Code Monkey logo

Comments (1)

NightlordTW avatar NightlordTW commented on June 27, 2024

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 photo React

    A declarative, efficient, and flexible JavaScript library for building user interfaces.

  • Vue.js photo Vue.js

    🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.

  • Typescript photo Typescript

    TypeScript is a superset of JavaScript that compiles to clean JavaScript output.

  • TensorFlow photo TensorFlow

    An Open Source Machine Learning Framework for Everyone

  • Django photo Django

    The Web framework for perfectionists with deadlines.

  • D3 photo 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.

  • Game

    Some thing interesting about game, make everyone happy.

Recommend Org

  • Facebook photo Facebook

    We are working to build community through open source technology. NB: members must have two-factor auth.

  • Microsoft photo Microsoft

    Open source projects and samples from Microsoft.

  • Google photo Google

    Google ❤️ Open Source for everyone.

  • D3 photo D3

    Data-Driven Documents codes.