# NOT RUN {
z <- EasyData("sosialFiktiv")
z8 <- z[z$fylke<=10 & z$kostragr==300,] # 8 regions
a <- ProtectTable1(z8,c(1,2,4,5),7)
as.data.frame(getInfo(a[[1]][[1]],type="finalData")) # The table (not two linked)
z36 <- z[z$fylke>=11 & z$fylke<=14 & z$kostragr<=500,] # 36 regions
b <- ProtectTable1(z36,1:6,7)
as.data.frame(getInfo(b[[1]][[1]],type="finalData")) # First table
as.data.frame(getInfo(b[[2]][[1]],type="finalData")) # Second table
# }
Run the code above in your browser using DataLab