setwd("c:/ADP/data") BlackFriday <- read.csv("BlackFriday.csv") str(BlackFriday) # 'data.frame': 537577 obs. of 12 variables: # $ User_ID : int 1000001 1000001 1000001 1000001 1000002 1000003 1000004 1000004 1000004 1000005 ... # $ Product_ID : chr "P00069042" "P00248942" "P00087842" "P00085442" ... # $ Gender : chr "F" "F" "F" "F" ... # $ Age : chr "0-17" "0-17" "0-17" "0-17" ... # $ Occupation : int 10 10 10 10 16 15 7 7 7 20 .