set.seed(256)
my.X <- data.frame(matrix(ifelse(runif(500)>.5, TRUE, FALSE), ncol = 5))
my.smc <- new("sdcSubstitutionMatrixClass",
T = new("sdcTargetMatrixClass",
Tdef = new("sdcTargetDefinitionClass", X = my.X)))Run the code above in your browser using DataLab