# NOT RUN {
data("BF_sim")
x <- subset(BF_sim, select = 1:6)
attributes(x)
head(x)
x1 <- subset(BF_sim, select = c(1,2,4,5,10))
attributes(x1)
x2 <- subset(BF_sim, select = var_ratio:alpha.05.Jacknife)
attributes(x2)
x3 <- subset(BF_sim, var_ratio == 1)
dim(BF_sim)
dim(x3)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab