#Define the variables for prizes

totalprize <- c(1.6,1.6,2.8,10.9,18,20.7,23.8)

firstprize <- c(1, 1, 1.4, 5, 6.6, 9, 10.46)

donatedprize <- c(4* (totalprize-1.6))

year <- c(2011,2012,2013,2014,2015,2016,2017)

#plot the graph

plot (year, totalprize, xlab = "Year (2011-2017)", ylab = "Amount (Millions)",type="o", col="blue", ylim=c(0,100))

lines (year, firstprize, type="o", col="red")

lines (year, donatedprize, type="o", col="yellow")

title(main="Prize Pools from TI (2011-2017)")

print(matrix(c(donatedprize), nrow = 1, ncol= 7), byrow = FALSE)

REVISION

#Define the variables for prizes
totalprize <- c(1.6,1.6,2.8,10.9,18,20.7,23.8)
firstprize <- c(1, 1, 1.4, 5, 6.6, 9, 10.46)

#userrevenue <- c(4* (totalprize-1.6))
year <- c(2011,2012,2013,2014,2015,2016,2017)

#Generated revenue... assumes 1.6m given from valve and 25% given
rev <- function(x){
x <- 4 * (x-1.6)
return(x)
}

#User Revenue
userrev <- lapply(totalprize, rev)

#plot the graph
plot (year, totalprize, xlab = "Year (2011-2017)", ylab = "Amount (Millions)",type="o", col="orange", ylim=c(0,100))
lines (year, firstprize, type="o", col="red")
lines (year, userrev, type="o", col="blue")

title(main="Prize Pools from TI (2011-2017)")

#print calculated data
print(matrix(c(userrev), nrow = 1, ncol= 7), byrow = FALSE)

REVISION II

#Define the variables for prizes
totalprize <- c(1.6,1.6,2.8,10.9,18,20.7,23.8)
firstprize <- c(1, 1, 1.4, 5, 6.6, 9, 10.46)

#userrevenue <- c(4* (totalprize-1.6))
year <- c(2011,2012,2013,2014,2015,2016,2017)

#Generated revenue... assumes 1.6m given from valve and 25% given
rev <- function(x){
x <- 4 * (x-1.6)
return(x)
}

#User Revenue
userrev <- sapply(totalprize, rev)
steammoney <- (userrev - totalprize)

#plot the graph
plot (year, totalprize, xlab = "Year (2011-2017)", ylab = "Amount (Millions)",type="o", col="orange", ylim=c(-10,100))
lines (year, firstprize, type="o", col="red")
lines (year, userrev, type="o", col="blue")
lines (year, steammoney, type="o", col="black")

title(main="Prize Pools from TI (2011-2017)")

#print calculated data
print(matrix(c(userrev), nrow = 1, ncol= 7), byrow = FALSE)

#print estimated best fit NOT FINISHED YET
lm(formula = firstprize ~ year)

#Money generated
print(paste(userrev - totalprize))

Spring: Best of what I've seen for the Spring 2015 season

Spring: Best of what I've seen for the Spring 2015 season

Fate/Stay Night (Grade: A): Unlimited Blade Works (Second Half): This is an obvious choice for me. UBW was my favorite FSN route, and I am always happy for additional adaptations, even if the FSN UBW movie was satisfying (and it was). I have been impressed at the small additions that the show has added to the lore, adding scenes, dimensions, and characters that are explored and given more depth.

Update (ep.3) Continuing to showcase a strong storyline. My favorite series this season, even if some of the plot has developed in a way that has been wholly expected. Thru 3 Grade: A

--
Plastic Memories: Not the prettiest show, but I like the character development I've seen so far. The premise is a little wonky (why do people have the giftia at all?).

Update (ep.3): Continuing to enjoy plastic memories, and will likely watch it until the series' end. I like the realistic take on a bureacracy and 'new job rookie' feel, and the character development so far between the protagonist and his assistant giftia. Still many questions remain. Not the deepest series in terms of plot, but a welcome diversion. Thru 3 Grade: B-

--

Oregairu Season 2 (Grade: A-): First season was a charming misanthrope 'romcom' that played off traditional stereotypes and introduced one of the most likable unlikable protagonists I have ever seen. Hikigaya and his constant verbal sparring with the reticent Yukinoshita and happy-go-lucky Yuigahama are always a nice treat, and the refreshingly-different side characters really elevates this show. A pretty, clean art style adds a lot as well, and I have yet to feel that the novel concept has worn out it's welcome. Grade: A- (Art is a little worse than last season, plot has felt a little less interesting, but overall has been good so far).

Update (ep.3): This series has developed as satisfyingly as I could have hoped for. The on-and-off-again love triangle misadventures continue, but Hikigaya's descent into being a combination of sacrificial lamb and perennial villain are an equally-intriguing development.  Grade: A-

--

Danmachi (Grade: B+): A series which seems conceptually similar to SAO, with a young adventurer looking to become stronger. Nothing original or novel here, but the idea of families (essentially guilds) being under different mythical gods and goddesses is intriguing. I like the art as well, and am excited about seeing where this show might go. 

Update (ep. 3): I've greatly enjoyed the way this series has developed. Nothing about this show has been completely off-the-wall, but it has done a great job developing a relatively uncomplicated plot. Thru 3 Grade: B+

--

Highschool DxD Born (Grade: B-): Cheesecake ecchi series with womanly form and perversions abound. A guilty pleasure watch with limited plot development, but fun in a swords, guns, and girls feel.

Update (ep. 3): This is a fringe-watch for me, I will try to watch it until the end. The plot developments have not exactly been revolutionary, but haven't been so boring or rote as to tune me out (at least, not yet). The introduction of Norse Gods may or may not make this more exciting as well... time will tell. Thru 3 Grade: C+

--

Triage X (Grade: B): So far, very dark. And I mean the plot is dark, the humor is dark, the SERIES is dark (not much lightening, always fighting in the dark). Apparently from the creator of HOTD, a guilty pleasure slash-em-up favorite of mine. Excited to see if this can approach the crazy, over-the-top style. The 100$ question: can I enjoy something this crazy without zombies?

Update (ep. 2): Still not sure what to think about this series. The plot is pretty basic and honestly, mostly brainless. Characters are even more sexualized than DXDB (see above), but it feels like it could continue to be a stupid fun series in the same vein. It is nowhere as fun as HOTD, though... maybe I just want more zombies. Thru 3 Grade: C

--
May/May not watch on a weekly basis: Nisekoi, Mikagura Gakuen Kumikyoku, Yamadakun to Nananin no Majo (I'm enjoying this, although only an episode in)

Waiting for: Grisaia no Rakuen

Tried an ep, then dropped: Ninja Slayer (ugly, bad animation, not very funny). Arslan Senki, The disappearance of Nagato (Just isn't the same without Kyoani), Hibiki Euphonium (not for me), Kyoukai no Rinne (wait, is this really Inuyasha all over again?), shokugeki no souma