Confirmed Response

1library(yamaa)23adrs <- yamaa_domain("spec.yaml")$output4adrs

1import yamaa23adrs = yamaa.yamaa_domain("spec.yaml").output4adrs

1# Reference solution for the yamaa benchmark adam-adrs-confirmed-response (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)910rs <- read_csv(11  "/app/input/rs.csv",12  col_types = cols(13    RSSEQ = col_integer(),14    RSDTC = col_date(),15    .default = col_character()16  )17)1819# Each assessment is compared with the next one in analysis date order;20# assessments sharing a date are ordered by sequence number, so the21# higher-numbered one is zero days later and never confirms the lower.22ordered <- rs |>23  mutate(PARAMCD = "CONFRESP", ADT = RSDTC, AVALC = RSSTRESC) |>24  arrange(STUDYID, USUBJID, ADT, RSSEQ) |>25  group_by(STUDYID, USUBJID) |>26  mutate(27    NEXT_AVALC = lead(AVALC),28    NEXT_ADT = lead(ADT),29    DAYS = as.integer(NEXT_ADT - ADT),30    CONFIRMED = case_when(31      AVALC %in% "PD" ~ "Y",32      AVALC %in% c("PR", "CR") &33        NEXT_AVALC %in% c("PR", "CR") &34        !is.na(DAYS) & DAYS >= 28L ~ "Y",35      .default = "N"36    )37  ) |>38  ungroup() |>39  select(STUDYID, USUBJID, PARAMCD, RSSEQ, ADT, AVALC, CONFIRMED) |>40  arrange(USUBJID, ADT, RSSEQ)4142dir.create("/app/output", showWarnings = FALSE)43write_csv(ordered, "/app/output/adrs.csv", na = "")

1# Reference solution for the yamaa benchmark adam-adrs-confirmed-response (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.67from pathlib import Path89import polars as pl1011rs = pl.read_csv("/app/input/rs.csv", infer_schema=False).with_columns(12    pl.col("RSSEQ").cast(pl.Int64),13    pl.col("RSDTC").str.to_date(),14)1516# Each assessment is compared with the next one in analysis date order;17# assessments sharing a date are ordered by sequence number, so the18# higher-numbered one is zero days later and never confirms the lower.19ordered = (20    rs.with_columns(21        PARAMCD=pl.lit("CONFRESP"), ADT=pl.col("RSDTC"), AVALC=pl.col("RSSTRESC")22    )23    .sort(["STUDYID", "USUBJID", "ADT", "RSSEQ"])24    .with_columns(25        NEXT_AVALC=pl.col("AVALC").shift(-1).over(["STUDYID", "USUBJID"]),26        NEXT_ADT=pl.col("ADT").shift(-1).over(["STUDYID", "USUBJID"]),27    )28    .with_columns(DAYS=(pl.col("NEXT_ADT") - pl.col("ADT")).dt.total_days())29    .with_columns(30        CONFIRMED=pl.when(pl.col("AVALC") == "PD")31        .then(pl.lit("Y"))32        .when(33            pl.col("AVALC").is_in(["PR", "CR"])34            & pl.col("NEXT_AVALC").is_in(["PR", "CR"])35            & (pl.col("DAYS") >= 28)36        )37        .then(pl.lit("Y"))38        .otherwise(pl.lit("N"))39    )40    .select("STUDYID", "USUBJID", "PARAMCD", "RSSEQ", "ADT", "AVALC", "CONFIRMED")41    .sort(["USUBJID", "ADT", "RSSEQ"])42)4344Path("/app/output").mkdir(exist_ok=True)45ordered.write_csv("/app/output/adrs.csv")

1/* opensas reference solution for the yamaa benchmark adam-adrs-confirmed-response.2   Reads the benchmark inputs and derives the requested output.3   Execute with the existing opensas runtime: opensas /app/output/result.sas. */45data rs;6  length STUDYID USUBJID RSDTC RSSTRESC $1024;7  infile "/app/input/rs.csv" dsd dlm="," firstobs=2 truncover lrecl=32767;8  input STUDYID : $char1024. USUBJID : $char1024. RSSEQ RSDTC : $char1024. RSSTRESC : $char1024.;9run;1011proc sort data=rs out=ordered; by STUDYID USUBJID descending RSDTC descending RSSEQ; run;12data result;13  length PARAMCD $16 ADT $10 AVALC $1024 CONFIRMED $1 nextresult $1024 nextdate $10;14  retain nextresult nextdate;15  set ordered; by STUDYID USUBJID;16  if first.USUBJID then do; nextresult=''; nextdate=''; end;17  PARAMCD='CONFRESP'; ADT=RSDTC; AVALC=RSSTRESC; CONFIRMED='N';18  if AVALC='PD' then CONFIRMED='Y';19  else if AVALC in ('PR','CR') and nextresult in ('PR','CR') and not missing(ADT) and not missing(nextdate) and input(nextdate,yymmdd10.)-input(ADT,yymmdd10.)>=28 then CONFIRMED='Y';20  nextresult=AVALC; nextdate=ADT;21run;2223proc sql;24  create table final as select STUDYID, USUBJID, PARAMCD, RSSEQ, ADT, AVALC, CONFIRMED from result;25quit;26proc export data=final outfile="/app/output/adrs.csv" dbms=csv replace; run;