changed subset(object, to subset(x, and allowed predict to accept data_frame when original data_list added pinna demo and fixed p610 demo