Is the true raw data available?

[DaveParr]

shot-by-cops/initial_data_processing.R

Lines 10 to 27 in 110eff1

	v <- list()
	for(i in 1:length(
	grep("csv", list.files(), value=T)
	)
	)
	{
	v[[i]] <- read.csv(grep("csv", list.files(), value=T)[i],
	stringsAsFactors=F)[,
	c("Date","NumberOfSubjects","Fatal","SubjectArmed",
	"Notes","SubjectRace","SubjectGender","SubjectAge",
	"NatureOfStop", "NumberOfShots","NumberOfOfficers",
	"OfficerRace","OfficerGender","Department",
	"FullNarrative")]
	v[[i]]$Date <- as.character(v[[i]]$Date)
	v[[i]]$Notes <- as.character(v[[i]]$Notes)
	v[[i]]$city <- substr(unlist(lapply(strsplit(grep("csv",
	list.files(), value=T), "_"), "[[", 1))[i], 9, 100)
	}

This appears to reference iterating over a number of seperated files, and creating an object that at the end is referred to as dat.

shot-by-cops/building_subject_database.R

Line 9 in 110eff1

r <- subset(dat, year>2009&year<2017)

shot-by-cops/building_subject_database.R

Lines 213 to 214 in 110eff1

	write.csv(vic, "../SubjectBased_Final.csv")
	write.csv(r, "../IncidentBased_Final.csv")

This appears to use that same object to perform more processing and cleaning finally writing the two data files in the repo.

The link in the article points to this page which links to this spreadsheet, which is also not the full data. It looks to just be the subject_data.csv, not the incident data, and not the raw files I'm assuming generated the both?