# Problem 1

NLWHIPdata = scan('http://people.stat.sc.edu/Hitchcock/NL_WHIP.txt');
Yvec1 = NLWHIPdata; NLWHIP.ts = ts(Yvec1, start=1876, frequency=1); 
print(NLWHIP.ts)


# Problem 2

sheepdata = scan('http://people.stat.sc.edu/Hitchcock/sheepdata.txt');
Yvec2 = sheepdata; sheep.ts = ts(Yvec2, start=1867, frequency=1); 
print(sheep.ts)

# Problem 3

schizdata = scan('http://people.stat.sc.edu/Hitchcock/schizophrenia.txt');
Yvec3 = schizdata; schiz.ts = ts(Yvec3, start=1, frequency=1); 
print(schiz.ts)