How does unstacked get_pseudo_ipd_binary work for anchored case?

[MikeJSeo]

Reported summary data

pseudo_adrs <- get_pseudo_ipd_binary(
binary_agd = data.frame(
ARM = c("A", "B", "A", "B"),
RESPONSE = c("YES", "YES", "NO", "NO"),
COUNT = c(67, 44, 156, 179)
),
format = "stacked"
)
table(pseudo_adrs$ARM, pseudo_adrs$RESPONSE)

testdat2 <- data.frame(Yes=c(67, 44), No=c(156, 179))
rownames(testdat2) <- c("A", "B")
pseudo_ipd_test2 <- get_pseudo_ipd_binary(testdat2, format="unstacked")
table(pseudo_ipd_test2$ARM, pseudo_ipd_test2$RESPONSE)

How does unstacked version work for anchored case?