n = 10
St = replicate(n, rnorm(20, mean = 1))
Sc = replicate(n, rnorm(20))
Yt = 1 + rowSums(St) / 2 + rnorm(n)
Yc = rowSums(Sc) / 3 + rnorm(n)
# Requires installation of mosek to run
if (FALSE) {
out = ptehd(Yt, Yc, St, Sc)
}
Run the code above in your browser using DataLab