Let\'s consider panel data with 300 rows deleted
data("EmplUK", package="plm") set.seed(42) EmplUK<-EmplUK[-sample(1:nrow(EmplUK),300),