dynamicMetaAnalysis.R

library(rrdf)
library(data.table)
require("meta")

model <- load.rdf("dynamicMetaAnalysis.ttl","TURTLE")
 
result <- sparql.rdf(model, 
"
PREFIX qb: <http://purl.org/linked-data/cube#>
PREFIX rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX eg: <http://example.org/dynamic-meta-analysis#>
SELECT 
?id ?year
?sampleSizeIntervention ?timeLearningAverageIntervention ?timeLearningStandardDeviationIntervention
?sampleSizeControl ?timeLearningAverageControl ?timeLearningStandardDeviationControl
WHERE 
{ 
  ?obs rdf:type qb:Observation .
  ?obs eg:pubid ?id .
  ?obs eg:pubid ?year .
  ?obs eg:sample-size-intervention ?sampleSizeIntervention .
  ?obs eg:time-learning-avg-intervention ?timeLearningAverageIntervention .
  ?obs eg:time-learning-sd-intervention ?timeLearningStandardDeviationIntervention .
  ?obs eg:sample-size-control ?sampleSizeControl .
  ?obs eg:time-learning-avg-control ?timeLearningAverageControl .
  ?obs eg:time-learning-sd-control ?timeLearningStandardDeviationControl .
}
"
)

class(result) <- "numeric"
metaInformation <- data.frame(result)
metaInformation[ metaInformation == 0 ] <- NA

metaAnalysis <- metacont(sampleSizeIntervention, timeLearningAverageIntervention, timeLearningStandardDeviationIntervention, sampleSizeControl, timeLearningAverageControl, timeLearningStandardDeviationControl, data=metaInformation, sm="SMD")

summary(metaAnalysis)