byanuaria

# problem 1
# part 1

pollutantmean <- function(directory, pollutant, id = 1:332) {
  filelist <- list.files(path = directory, pattern = ".csv",
                        full.names = TRUE)
  
  values <- numeric()
  
  for(i in id) {

byanuaria

library(tidyverse)

# read in the data
outcome <- read.table("rprog_data_ProgAssignment3-data/outcome-of-care-measures.csv",
                      header = TRUE, sep = ",", colClasses = "character")

nrow(outcome)
ncol(outcome)
names(outcome)

byanuaria

## find the hospital for state with best heart attack rate

ha <- function(thestate) {
  data <- read.csv("outcome-of-care-measures.csv",
                   header = TRUE, sep = ",",
                   colClasses = "character")
  # convert to proper class
  data[,11] <- as.numeric(data[,11])
  
  for(i in thestate) {

byanuaria

best <- function(thestate, outcome) {
  mydata <- read.csv("outcome-of-care-measures.csv", header = TRUE, sep = ",", 
                     colClasses = "character")
  
  for(i in thestate) {
    if(outcome == "heart attack") {
      mystate <- subset(mydata, State = thestate, select = c(2, 7, 11))
      ind <- which.min(mystate[, 3])
      myhospital <- mystate[ind, 1]
      

byanuaria

/* Show matchid and player name for all goals scored by Germany */ 
SELECT matchid, player
FROM goal
WHERE teamid = 'GER'

/* Show id, stadium, team1, team2 for just game 1012 */
SELECT id, stadium, team1, team2
FROM game
WHERE id = 1012 

byanuaria

/* More JOIN */
/* Give year of Citizen Kane */ 
SELECT yr
FROM movie
WHERE title = 'Citizen Kane'

/* List all of the Star Trek movies, include the id, title and yr (all of these movies include the words Stark Trek in the title). Order results by year */
SELECT id, title, yr 
FROM movie
WHERE title LIKE 'Star Trek%'

byanuaria

/* Using NULL */
/* List the teachers who have NULL for their department */
SELECT name
FROM teacher
WHERE dept IS NULL  

/* Use a different JOIN so that all teachers are listed */ 
SELECT teacher.name, dept.name
FROM teacher LEFT JOIN dept ON teacher.dept = dept.id

byanuaria

/* Self join * /
/* How many stops are in the database */ 
SELECT COUNT(*)
FROM stops

/* Find the id value for the stop Craiglockhart */ 
SELECT id
FROM stops 
WHERE name = 'Craiglockhart'

byanuaria

/* How many albums does the artist Led Zepplin have? */
SELECT COUNT(Albumid) AS totalAlbums 
FROM albums
WHERE Artistid  = (SELECT Artistid FROM artists WHERE name = 'Led Zeppelin')

/* Create a list of album titles and the unit prices for the artist Audioslave */
SELECT n.Name, u.UnitPrice
FROM ((albums t INNER JOIN artists n
				ON t.Artistid = n.Artistid)
INNER JOIN tracks u ON t.Albumid = u.Albumid)

byanuaria

# lists to test
foo = ['apples', 'bananas', 'tofu', 'cats']
a = ['bat', 'rat', 'elephant', 'snake', 'hippo']
b = ['Ben', 'Ryan', 'Arthur', 'Dillon', 'Andre', 'Agnes', 'Aaron']
d = ['a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'] 

# comma code function
def commaCode(myList):
    s = '' # creates an empty string vector
    last = myList[len(myList) - 1] # gets the last value from the list