user_scheme <- data.frame(class=c("A", "B", "C", "Z"),
aacid=c("SLR", "AGPTV", "CDEFHIKMNQWY", "*"),
c=c(3,2,1,1))
user_library <- libBuild(3, user_scheme)
Run the code above in your browser using DataLab