ass62.R

a=c("Bob","Fred","Barb","Sue","Jeff")

b=c(21,18,18,24,20)

c=c(70,67,64,66,72)

d=c(180,156,128,118,202)

e=c("Cauc","Af.Am","Af.Am","Cauc","Asain")

f=c("Jr","Fr","Fr","Sr","So")

g=c(1080,1210,840,1340,880)

data=data.frame(name=a,age=b,hgt=c,wgt=d,race=e,year=f,SAT=g)
  
data

##   name age hgt wgt  race year  SAT
## 1  Bob  21  70 180  Cauc   Jr 1080
## 2 Fred  18  67 156 Af.Am   Fr 1210
## 3 Barb  18  64 128 Af.Am   Fr  840
## 4  Sue  24  66 118  Cauc   Sr 1340
## 5 Jeff  20  72 202 Asain   So  880

class(data)

## [1] "data.frame"

names(data)

## [1] "name" "age"  "hgt"  "wgt"  "race" "year" "SAT"

str(data)

## 'data.frame':    5 obs. of  7 variables:
##  $ name: Factor w/ 5 levels "Barb","Bob","Fred",..: 2 3 1 5 4
##  $ age : num  21 18 18 24 20
##  $ hgt : num  70 67 64 66 72
##  $ wgt : num  180 156 128 118 202
##  $ race: Factor w/ 3 levels "Af.Am","Asain",..: 3 1 1 3 2
##  $ year: Factor w/ 4 levels "Fr","Jr","So",..: 2 1 1 4 3
##  $ SAT : num  1080 1210 840 1340 880

summary(data)

##    name        age            hgt            wgt         race   year  
##  Barb:1   Min.   :18.0   Min.   :64.0   Min.   :118   Af.Am:2   Fr:2  
##  Bob :1   1st Qu.:18.0   1st Qu.:66.0   1st Qu.:128   Asain:1   Jr:1  
##  Fred:1   Median :20.0   Median :67.0   Median :156   Cauc :2   So:1  
##  Jeff:1   Mean   :20.2   Mean   :67.8   Mean   :157             Sr:1  
##  Sue :1   3rd Qu.:21.0   3rd Qu.:70.0   3rd Qu.:180                   
##           Max.   :24.0   Max.   :72.0   Max.   :202                   
##       SAT      
##  Min.   : 840  
##  1st Qu.: 880  
##  Median :1080  
##  Mean   :1070  
##  3rd Qu.:1210  
##  Max.   :1340