Module:BiologicalAgeBiomarkers: Difference between revisions
(Created page with "local p = {} p.createTable = function(frame) local numRows = 10 local numCols = 10 local wikitable = '{| class="wikitable"\n' -- Kopfzeile wikitable = wikitable .. '! ' for col = 1, numCols do wikitable = wikitable .. ' !! ' .. col end wikitable = wikitable .. '\n' -- Zeilen und Spalten for row = 1, numRows do wikitable = wikitable .. '|-\n' wikitable = wikitable .. '| ' .. row for col = 1, numCol...") |
No edit summary |
||
Line 1: | Line 1: | ||
local p = {} | local p = {} | ||
-- Define biomarkers with their long form and system | |||
local biomarkers = { | |||
SBP = {longForm = "Systolic Blood Pressure", system = "Cardiovascular System"}, | |||
DBP = {longForm = "Diastolic Blood Pressure", system = "Cardiovascular System"}, | |||
HDL = {longForm = "High-Density Lipoprotein", system = "Endocrine Metabolic System"}, | |||
LDL = {longForm = "Low-Density Lipoprotein", system = "Endocrine Metabolic System"} | |||
} | |||
-- | -- Incorporate data directly into studies identified by PMID | ||
wikitable = wikitable .. '! ' | local studies = { | ||
for | PMID12345 = { | ||
wikitable = wikitable .. ' !! ' .. | name = "Study1", | ||
data = { | |||
SBP = "120 mmHg", | |||
DBP = "80 mmHg", | |||
HDL = "55 mg/dL", | |||
LDL = "100 mg/dL" | |||
} | |||
}, | |||
PMID67890 = { | |||
name = "Study2", | |||
data = { | |||
SBP = "130 mmHg", | |||
DBP = "85 mmHg", | |||
HDL = "60 mg/dL", | |||
LDL = "105 mg/dL" | |||
} | |||
}, | |||
PMID13579 = { | |||
name = "Study3", | |||
data = { | |||
SBP = "125 mmHg", | |||
DBP = "82 mmHg", | |||
HDL = "57 mg/dL", | |||
LDL = "102 mg/dL" | |||
} | |||
} | |||
} | |||
function p.createCrossTable() | |||
-- Start of the wiki table | |||
local wikitable = '{| class="wikitable"\n!' | |||
-- Column headers: Biomarker and System | |||
wikitable = wikitable .. ' !! Biomarker !! System' | |||
for _, study in pairs(studies) do | |||
wikitable = wikitable .. ' !! ' .. study.name | |||
end | end | ||
-- | -- Generate rows for each biomarker | ||
for | for abbr, details in pairs(biomarkers) do | ||
wikitable = wikitable .. '|-\n' | wikitable = wikitable .. '\n|-\n| ' .. details.longForm .. ' || ' .. details.system | ||
for _, study in pairs(studies) do | |||
for | -- Retrieve data value for the current cell, using the nested structure | ||
wikitable = wikitable .. ' || ' .. | local cellValue = study.data[abbr] or "-" | ||
wikitable = wikitable .. ' || ' .. cellValue | |||
end | end | ||
end | end | ||
-- | -- End of the table | ||
wikitable = wikitable .. '|}' | wikitable = wikitable .. '\n|}' | ||
return wikitable | return wikitable | ||
end | end | ||
return p | return p |
Revision as of 00:51, 19 February 2024
local p = {}
-- Define biomarkers with their long form and system
local biomarkers = {
SBP = {longForm = "Systolic Blood Pressure", system = "Cardiovascular System"},
DBP = {longForm = "Diastolic Blood Pressure", system = "Cardiovascular System"},
HDL = {longForm = "High-Density Lipoprotein", system = "Endocrine Metabolic System"},
LDL = {longForm = "Low-Density Lipoprotein", system = "Endocrine Metabolic System"}
}
-- Incorporate data directly into studies identified by PMID
local studies = {
PMID12345 = {
name = "Study1",
data = {
SBP = "120 mmHg",
DBP = "80 mmHg",
HDL = "55 mg/dL",
LDL = "100 mg/dL"
}
},
PMID67890 = {
name = "Study2",
data = {
SBP = "130 mmHg",
DBP = "85 mmHg",
HDL = "60 mg/dL",
LDL = "105 mg/dL"
}
},
PMID13579 = {
name = "Study3",
data = {
SBP = "125 mmHg",
DBP = "82 mmHg",
HDL = "57 mg/dL",
LDL = "102 mg/dL"
}
}
}
function p.createCrossTable()
-- Start of the wiki table
local wikitable = '{| class="wikitable"\n!'
-- Column headers: Biomarker and System
wikitable = wikitable .. ' !! Biomarker !! System'
for _, study in pairs(studies) do
wikitable = wikitable .. ' !! ' .. study.name
end
-- Generate rows for each biomarker
for abbr, details in pairs(biomarkers) do
wikitable = wikitable .. '\n|-\n| ' .. details.longForm .. ' || ' .. details.system
for _, study in pairs(studies) do
-- Retrieve data value for the current cell, using the nested structure
local cellValue = study.data[abbr] or "-"
wikitable = wikitable .. ' || ' .. cellValue
end
end
-- End of the table
wikitable = wikitable .. '\n|}'
return wikitable
end
return p