powered by
## S3 method for class 'brklist': print(x,...)
printbrktest<-data.frame(A=c(sample(1:10,99,TRUE),NA), B=sample(c("Yes","No"),100,TRUE), C=sample(LETTERS[1:3],100,TRUE)) pbt<-brkdnNest(A~B+C,printbrktest) print(pbt)
Run the code above in your browser using DataLab