{
    "contents" : "plot(x=primates$bodywt,y-primates$Brainwt, xlim=c(0,300),ylim=c(0,1500),xaxs=\"i\")\n\ntemp<-c(1,2,3,1,2,3,1,2,6)\nunique(temp)\ntemp[!duplicated(temp)]\nx<-data.frame(a=c(11,13,12,15,17,20),b=c(8,NA,6,4,NA,15))\nx$b>5\nsubset(x, x$b>5, na.omit=T)\nnonaX<-na.omit(x)\nnonaX[which(nonaX$b>5),]\nx[which(x$b>5),]\nrownm<-paste(\"Patient\",1:20)\ncolnm<-paste(\"yr\",1:5)\nsubj<-matrix(round(rnorm(n=100),3),ncol=5,dimnames=list(rownm,colnm))\nhead(subj)\napply(subj,MARGIN=1,mean)\napply(subj,MARGIN=2,mean)\nrowMeans(subj)\ncolMeans(subj)\nlengths<-sample(1:100,size=20,replace=T)\ngenders<-sample(c(\"Male\",\"Female\",\"Transgender\"),size=20,replace=T)\nweights<-sample(200:250)\nmtcars\nvroom<-data.frame(mtcars)\nView(vroom)\nvroom2<-vroom[order(vroom$cyl,vroom$disp,vroom$wt),]\n",
    "created" : 1412880279517.000,
    "dirty" : false,
    "encoding" : "UTF-8",
    "folds" : "",
    "hash" : "283950566",
    "id" : "370A7EAE",
    "lastKnownWriteTime" : 1412886037,
    "path" : "~/R/IntroR/lecture5.r",
    "project_path" : "lecture5.r",
    "properties" : {
        "tempName" : "Untitled1"
    },
    "source_on_save" : false,
    "type" : "r_source"
}