x <- list(p1 = list(type="A",score=list(c1=10,c2=8)),
p2 = list(type="B",score=list(c1=9,c2=9)),
p3 = list(type="B",score=list(c1=9,c2=7)))
summary(x)
summary(x,show.info=FALSE)
summary(x,show.data=TRUE)
summary(x,show.data=2)
summary(x,indent=4)Run the code above in your browser using DataLab