s1_e1 <- bca(tt = matrix(c(1,0,1,1),nrow = 2, byrow = TRUE),
m = c(0.6,0.4), cnames = c("S1","S2"), varnames = "v1", idvar = 1)
s13_names <- extFrame(s1_e1, lab = "S3", use_ssnames =TRUE)
s13 <- extFrame(s1_e1, lab = "S3")
Run the code above in your browser using DataLab