Derive BMI Two Ways

1library(yamaa)23yamaa_project("project.yaml")$spec("ADSL")$run()$output

1import yamaa23yamaa.project("project.yaml").spec("ADSL").run().output

1# Reference solution for the yamaa benchmark adam-adsl-bmi (R track).2#3# Written from the benchmark's full prompt and its inputs alone, as an agent4# would write it. Harbor's oracle agent runs it to check that the prompt can5# be solved and that the grader scores a correct answer 1.67library(dplyr, warn.conflicts = FALSE)8library(readr)910src <- read_csv(11  "/app/input/adsl.csv",12  col_types = cols(13    HEIGHTCM = col_double(),14    WEIGHTKG = col_double(),15    .default = col_character()16  )17)1819adsl <- src |>20  mutate(21    BMI = if_else(22      is.na(HEIGHTCM) | HEIGHTCM == 0 | is.na(WEIGHTKG),23      NA_real_,24      WEIGHTKG / ((HEIGHTCM / 100)^2)25    ),26    BMI_FN = BMI27  ) |>28  select(STUDYID, USUBJID, HEIGHTCM, WEIGHTKG, BMI, BMI_FN)2930dir.create("/app/output", showWarnings = FALSE)31write_csv(adsl, "/app/output/adsl.csv", na = "")

1# Reference solution for the yamaa benchmark adam-adsl-bmi (Python track).2#3# Written from the benchmark's full prompt and its inputs alone, as an agent4# would write it. Harbor's oracle agent runs it to check that the prompt can5# be solved and that the grader scores a correct answer 1.67"""Create an ADSL dataset with BMI derived from height and weight.89Reads the ADSL dataset from /app/input and writes /app/output/adsl.csv10with one record per subject and the columns STUDYID, USUBJID, HEIGHTCM,11WEIGHTKG, BMI, BMI_FN.1213BMI is WEIGHTKG divided by the square of the height in metres14(HEIGHTCM / 100). BMI has no value when HEIGHTCM has no value or is zero,15or when WEIGHTKG has no value. A WEIGHTKG of zero gives a BMI of zero.16BMI_FN is the same body mass index from a project routine and agrees with17BMI on every record. Neither value is rounded.18"""1920import csv212223def bmi(height_cm, weight_kg):24    """Body mass index from height in cm and weight in kg.2526    Returns None when the height has no value or is zero, or when the27    weight has no value.28    """29    if height_cm is None or height_cm == 0 or weight_kg is None:30        return None31    height_m = height_cm / 10032    return weight_kg / (height_m * height_m)333435def bmi_fn(height_cm, weight_kg):36    """Project routine for the body mass index.3738    Has no value when HEIGHTCM or WEIGHTKG has no value, and agrees with39    BMI on every record.40    """41    if height_cm is None or weight_kg is None:42        return None43    if height_cm == 0:44        return None45    height_m = height_cm / 10046    return weight_kg / (height_m * height_m)474849def number(text):50    if text is None or text == "":51        return None52    return float(text)535455def main():56    with open("/app/input/adsl.csv", newline="") as handle:57        rows = list(csv.DictReader(handle))5859    columns = ["STUDYID", "USUBJID", "HEIGHTCM", "WEIGHTKG", "BMI", "BMI_FN"]60    with open("/app/output/adsl.csv", "w", newline="") as handle:61        writer = csv.DictWriter(handle, fieldnames=columns)62        writer.writeheader()63        for row in rows:64            height = number(row["HEIGHTCM"])65            weight = number(row["WEIGHTKG"])66            bmi_value = bmi(height, weight)67            bmi_fn_value = bmi_fn(height, weight)68            writer.writerow(69                {70                    "STUDYID": row["STUDYID"],71                    "USUBJID": row["USUBJID"],72                    "HEIGHTCM": row["HEIGHTCM"],73                    "WEIGHTKG": row["WEIGHTKG"],74                    "BMI": "" if bmi_value is None else bmi_value,75                    "BMI_FN": "" if bmi_fn_value is None else bmi_fn_value,76                }77            )787980if __name__ == "__main__":81    main()

1/* opensas reference solution for the yamaa benchmark adam-adsl-bmi.2   Reads the benchmark inputs and derives the requested output.3   Execute with the existing opensas runtime: opensas /app/output/result.sas. */45data adsl;6  length STUDYID USUBJID $1024;7  infile "/app/input/adsl.csv" dsd dlm="," firstobs=2 truncover lrecl=32767;8  input STUDYID : $char1024. USUBJID : $char1024. HEIGHTCM WEIGHTKG;9run;1011data result;12  set adsl;13  if not missing(HEIGHTCM) and HEIGHTCM ne 0 and not missing(WEIGHTKG) then BMI=WEIGHTKG/(HEIGHTCM/100)**2;14  BMI_FN=BMI;15run;1617proc export data=result(keep=STUDYID USUBJID HEIGHTCM WEIGHTKG BMI BMI_FN) outfile="/app/output/adsl.csv" dbms=csv replace; run;