# R program to collect sample data
# from a data frame
  
# Loading library 
library(dplyr)
    
# Create a data frame
d <- data.frame( name = c("Abhi", "Bhavesh", "Chaman", "Dimri"),  
                 age = c(7, 5, 9, 16),  
                 ht = c(46, NA, NA, 69), 
                 school = c("yes", "yes", "no", "no") ) 
  
# Printing three rows 
sample_n(d, 3) 

     name age ht school
1  Chaman   9 NA     no
2    Abhi   7 46    yes
3 Bhavesh   5 NA    yes

# R program to collect sample data
# from a data frame
  
# Loading library 
library(dplyr)
    
# Create a data frame
d <- data.frame( name = c("Abhi", "Bhavesh", "Chaman", "Dimri"),  
                 age = c(7, 5, 9, 16),  
                 ht = c(46, NA, NA, 69), 
                 school = c("yes", "yes", "no", "no") ) 
  
# Printing three rows 
sample_n(d, 3, fac = "name")$name

[1] Chaman  Bhavesh Dimri  
Levels: Abhi Bhavesh Chaman Dimri