# Transforming Data
# Malhotra (2010), Table 15.1

# Internet Usage in minutes/week

attach(Table15.1)
# Table15.1$iusage


Table15.1$IUSAGE_M = iusage*60
IUSAGE_M

print(cbind(iusage,IUSAGE_M))

# Internet Usage Recoded LOW and HIGH

IUSAGE_R<-numeric()
IUSAGE_R[iusage >=2 & iusage <=5]<-1
IUSAGE_R[iusage >=6 & iusage <=15]<-2
IUSAGE_R

print(cbind(iusage,IUSAGE_R))