# NOT RUN {
library(vegtable)
data(Kenya_veg)
## Direct manipulation of slot header generates an invalid object
Kenya_veg@header <- Kenya_veg@header[1:50,]
summary(Kenya_veg)
## Now apply cleaning
Kenya_veg <- clean(Kenya_veg)
summary(Kenya_veg)
# }
Run the code above in your browser using DataLab