29:null 2a:["$","title",null,{"children":"notes | Maria M | Observable"}] 30:[] 2d:{"id":"514b6afe865d091d","slug":"notes","title":"notes","thumbnail":"5956e73b95e750b0b31bbd320f63f2c5f98f50b3fd44e1946954f9733521fe31","access_level":"public","create_time":"$D2019-09-09T13:42:55.339Z","update_time":"$D2019-09-23T13:51:56.434Z","view_time":null,"first_public_time":"$D2019-09-09T14:21:08.517Z","fork":true,"stars":0,"starred":false,"owner":{"type":"team","id":"74830de8956b7527","login":"maria","name":"Maria M","avatar_url":"https://avatars-next.observableusercontent.com/762d1f26619c25c14582b744fb5716266bd7102ce4c9aa51c68c9af1e6fd8e55","tier":"starter_2024"},"version":288,"publish_version":288,"role":null,"authored":false,"authors":[{"type":"individual","id":"7fb9b55c55b6c72b","login":"maria","name":"Maria M","avatar_url":"https://avatars-next.observableusercontent.com/762d1f26619c25c14582b744fb5716266bd7102ce4c9aa51c68c9af1e6fd8e55","tier":null}],"members":[{"type":"individual","id":"7fb9b55c55b6c72b","login":"maria","name":"Maria M","avatar_url":"https://avatars-next.observableusercontent.com/762d1f26619c25c14582b744fb5716266bd7102ce4c9aa51c68c9af1e6fd8e55","tier":null,"role":"editor"}],"comments":[],"custom_thumbnail":false,"trashed":false,"subscribed":null,"forks":1,"collection":null,"type":"notebook","body":{"title":"notes","cells":[{"id":0,"value":"md`# notes\n\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":256,"value":"md`\n\n1.data <-Batting%>%\n filter(playerID ==\"ruthba01\"| playerID == \"mayswi01\" | playerID == \"bondsba01\")%>%\nselect(playerID,yearID,HR) \n\nwrite_json(data,\"data.json\",pretty=TRUE)\n\n install.packages(\"tidyverse\")\n> install.packages(\"Lahman\")\n\n> library(jsonlite)\n> library(Lahman)\n> library(tidyverse)\n> data\n\n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":260,"value":"md`2.Master%>%\n filter(nameLast == \"Sosa\")%>%\n select(playerID,nameFirst,nameLast)\n\n#mcgwima01 sosasa01 bondsba01\n\nType in box bellow Master at first to get Master list\n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":263,"value":"md`\n3.Then delet what you have on the top and put this \n\ndata<- Batting%>%\n filter(playerID == \"mcgwima01\"| playerID == \"sosasa01\" | playerID == \"bondsba01\")%>%\n select(playerID,yearID,HR,H,SO)\n\nwrite_json(data,\"data.json\",pretty=TRUE)\n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":273,"value":"md`\nPractice problem 1 R code. filtered so we got years after 1913\n\ndata<- Teams%>%\n filter(name == \"New York Yankees\" | name == \"Boston Red Sox\")%>%\n filter(yearID >= 1913)%>%\n select(name,yearID,W)\n\nwrite_json(data,\"data.json\",pretty=TRUE)\n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":275,"value":"md` Midterm for class.\n\nx<- seq(-4,4,.1)\ny<- dnorm(x)\narea <- 1-pnorm(x)\n\ndata<- tibble (x=x,y=y,area=area)\nwrite_json(data,\"data.json\",pretty=TRUE)\n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":271,"value":"md`second example problem\ndata<- Salaries%>%\n filter(yearID == 2016)%>%\n filter(salary>= 15000000)%>%\n select (salary)\n\nwrite_json(data,\"data.json\",pretty=TRUE)\n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":278,"value":"md`\nOther problems \n\nx<- seq(-10,10,.1)\ndata<- tibble (x=x)\nwrite_json(data,\"data.json\",pretty=TRUE)\n\n\n> \n> write_json(data,\"data.json\",pretty=TRUE)\n> \n> x<- seq(-10,10,.1)\n> data<- tibble (x=x)\n> write_json(data,\"data.json\",pretty=TRUE)\n> \n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":280,"value":"md`\nPost Midterm, grouping\nBatting%>%\n filter(playerID== \"ruthba01\")%>%\n group_by(playerID)%>%\n summarise(careerHR= sum(HR))\n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":282,"value":"md`\nGroup, mumeraize, generate top 10 list\nBatting%>%\n group_by(playerID)%>%\n summarise(careerHR= sum(HR))%>%\n top_n(10)\n\n\ndata<-Batting%>%\n group_by(playerID)%>%\n summarise(careerHR= sum(HR))%>%\n top_n(10)\n\nwrite_json(data,\"data.json\",pretty=TRUE)\n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":285,"value":"md`\nbaseball example 2\ndata<-Batting%>%\n filter(playerID==\"luzingr01\" | playerID== \"schmimi01\")%>%\n select(playerID,HR)\n\n\nwrite_json(data,\"data.json\",pretty=TRUE)\n\n\n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":287,"value":"md`\nhitters<-Batting%>%\n filter(yearID<= 1980)%>%\n filter(yearID>= 1976)%>%\n filter(teamID == \"PHI\")%>%\n group_by(playerID)%>%\n summarize(totalHR=sum(HR))%>%\n top_n(10)%>%\n select(playerID)\n \nthen do \n\nallhitters<-Batting%>%\n filter(yearID<= 1980)%>%\n filter(yearID>= 1976)%>%\n filter(teamID == \"PHI\")%>%\n select(playerID,yearID,HR)\n\nallhitters<-Batting%>%\n filter(yearID<= 1980)%>%\n filter(yearID>= 1976)%>%\n filter(teamID == \"PHI\")%>%\n select(playerID,yearID,HR)\n \ninner_join(hitters,allhitters,by=c(\"playerID\"))\n`","pinned":true,"hidden":false,"mode":"ojs"},{"id":38,"value":"md`\n---\n## Appendix\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":56,"value":"import {printTable} from '@uwdata/data-utilities'","pinned":false,"hidden":false,"mode":"ojs"},{"id":61,"value":"import {vl} from '@vega/vega-lite-api'","pinned":false,"hidden":false,"mode":"ojs"},{"id":63,"value":"import {slider,button,select,text,radio,checkbox,number} from \"@jashkenas/inputs\"","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W30","stdlib":"1","titling":"auto"}} 2e:"$2d:body"