d1 <- fcut(CO2[, 1:2])
d2 <- fcut(CO2[, 3:4], breaks=list(conc=1:4*1000/4))
r <- cbind(d1, d2)
print(colnames(d1))
print(colnames(d2))
print(colnames(r))
print(vars(d1))
print(vars(d2))
print(vars(r))
print(specs(d1))
print(specs(d2))
print(specs(r))
Run the code above in your browser using DataLab