dotapp/post.Rmd at master · toxic-ocean/dotapp · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
---
title: "dota_mcts"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```


```{r}
setwd('/Users/Isolachine/Downloads')
df.all <- read.csv('sparse.csv')
hero <- read.csv('hero_data.csv')
```

```{r}
df.all[,1] <- NULL
df.all[,113]
names(df.all)
```


```{r}
cutoff <- 50000
trainset <- df.all[1:cutoff, ]
testset <- df.all[(cutoff + 1):dim(df.all)[1], ]
```


```{r}
n <- names(df.all)
formula <- as.formula(paste("V113 ~", paste(n[!n %in% "V113"], collapse = " + ")))
library(neuralnet)
```


```{r}
nn <- neuralnet(formula = formula, data = trainset, hidden=0, linear.output=FALSE, threshold=0.01,)
# nn$result.matrix
# plot(nn)
```

```{r}
#Test the resulting output
temp_test <- subset(testset, select = n[!n %in% "V113"])
head(temp_test)
nn.results <- compute(nn, temp_test)
results <- data.frame(actual = testset$V113, prediction = nn.results$net.result)
results
```

```{r}
roundedresults<-sapply(results,round,digits=0)
roundedresultsdf=data.frame(roundedresults)
attach(roundedresultsdf)
cf <- table(actual,prediction)
cf

acc <- (cf[1,1] + cf[2,2]) / sum(cf)
acc

```

```{r}
con <- file("Bootstrap4/ok.html", "w")
cat('<!DOCTYPE html>\n<html lang=en>\n<head>\n<meta charset=utf-8>\n<meta name=viewport content="width=device-width, initial-scale=1, shrink-to-fit=no">\n<link rel=stylesheet href=vendors/bower_components/material-design-iconic-font/dist/css/material-design-iconic-font.min.css>\n<link rel=stylesheet href=vendors/bower_components/animate.css/animate.min.css>\n<link rel=stylesheet href=vendors/bower_components/jquery.scrollbar/jquery.scrollbar.css>\n<link rel=stylesheet href=vendors/bower_components/fullcalendar/dist/fullcalendar.min.css>\n<link rel=stylesheet href=css/app.min.css>\n<style>img{width:75px}</style>\n</head>\n<body data-ma-theme=red>\n<main class=main>\n<div class=page-loader>\n<div class=page-loader__spinner>\n<svg viewBox="25 25 50 50">\n<circle cx=50 cy=50 r=20 fill=none stroke-width=2 stroke-miterlimit=10 />\n</svg>\n</div>\n</div>\n<header class=header>\n<div class="header__logo hidden-sm-down">\n<h1><a href>DOTA++</a></h1>\n</div>\n</header>\n<section class="content content--full">\n<div class=content__inner>\n<header class=content__title>\n<h1>Simulation Outcome</h1>\n</header>\n<div class=card>\n<div class=card-body>\n<table class="table mb-0">\n<thead>\n<tr>\n<th>Radiant</th>\n<th>Dire</th>\n<th>Radiant Win Rate</th>\n</tr>\n</thead>\n<tbody>\n', file=con)

for (i in 1:5) {
  cat('<tr>\n<td>\n<img src=img/images/1.png>\n<img src=img/images/2.png>\n<img src=img/images/3.png>\n<img src=img/images/4.png>\n<img src=img/images/5.png>\n</td>\n<td>\n<img src=img/images/10.png>\n<img src=img/images/11.png>\n<img src=img/images/12.png>\n<img src=img/images/13.png>\n<img src=img/images/14.png>\n</td>\n<td>65.54%</td>\n</tr>\n', file = con)
}

cat('</tbody>\n</table>\n</div>\n</div>\n<footer class="footer hidden-xs-down">\n<p>© INFSCI 2160 Fall 2018 - Group 16. All rights reserved.</p>\n</footer>\n</section>\n</main>\n<!--[if IE]>\n<div class=ie-warning>\n<h1>Warning!!</h1>\n<p>You are using an outdated version of Internet Explorer, please upgrade to any of the following web browsers to access this website.</p>\n<div class=ie-warning__downloads>\n<a href=http://www.google.com/chrome>\n<img src=img/browsers/chrome.png alt>\n</a>\n<a href=https://www.mozilla.org/en-US/firefox/new>\n<img src=img/browsers/firefox.png alt>\n</a>\n<a href=http://www.opera.com>\n<img src=img/browsers/opera.png alt>\n</a>\n<a href=https://support.apple.com/downloads/safari>\n<img src=img/browsers/safari.png alt>\n</a>\n<a href=https://www.microsoft.com/en-us/windows/microsoft-edge>\n<img src=img/browsers/edge.png alt>\n</a>\n<a href=http://windows.microsoft.com/en-us/internet-explorer/download-ie>\n<img src=img/browsers/ie.png alt>\n</a>\n</div>\n<p>Sorry for the inconvenience!</p>\n</div>\n<![endif]-->\n<script src=vendors/bower_components/jquery/dist/jquery.min.js></script>\n<script src=vendors/bower_components/popper.js/dist/umd/popper.min.js></script>\n<script src=vendors/bower_components/bootstrap/dist/js/bootstrap.min.js></script>\n<script src=vendors/bower_components/jquery.scrollbar/jquery.scrollbar.min.js></script>\n<script src=vendors/bower_components/jquery-scrollLock/jquery-scrollLock.min.js></script>\n<script src=vendors/bower_components/flot/jquery.flot.js></script>\n<script src=vendors/bower_components/flot/jquery.flot.resize.js></script>\n<script src=vendors/bower_components/flot.curvedlines/curvedLines.js></script>\n<script src=vendors/bower_components/jqvmap/dist/jquery.vmap.min.js></script>\n<script src=vendors/bower_components/jqvmap/dist/maps/jquery.vmap.world.js></script>\n<script src=vendors/bower_components/jquery.easy-pie-chart/dist/jquery.easypiechart.min.js></script>\n<script src=vendors/bower_components/salvattore/dist/salvattore.min.js></script>\n<script src=vendors/jquery.sparkline/jquery.sparkline.min.js></script>\n<script src=vendors/bower_components/moment/min/moment.min.js></script>\n<script src=vendors/bower_components/fullcalendar/dist/fullcalendar.min.js></script>\n<script src=demo/js/flot-charts/curved-line.js></script>\n<script src=demo/js/flot-charts/dynamic.js></script>\n<script src=demo/js/flot-charts/line.js></script>\n<script src=demo/js/flot-charts/chart-tooltips.js></script>\n<script src=demo/js/other-charts.js></script>\n<script src=demo/js/jqvmap.js></script>\n<script src=js/app.min.js></script>\n</body>\n</html>', file=con)
close(con)
```

```{r}
source('random.R')
valid.heroes.id <- c(1:23, 25:114, 119:121)
print(valid.heroes.id)
```

```{r}
lineup <- integer(128)
lineup <- random.pick(lineup, valid.heroes.id, side = 1)
lineup <- random.pick(lineup, valid.heroes.id, side = -1)
lineup <- random.pick(lineup, valid.heroes.id, side = -1)
lineup <- random.pick(lineup, valid.heroes.id, side = 1)
lineup <- random.pick(lineup, valid.heroes.id, side = 1)
lineup <- random.pick(lineup, valid.heroes.id, side = -1)
lineup <- random.pick(lineup, valid.heroes.id, side = -1)
lineup <- random.pick(lineup, valid.heroes.id, side = 1)
lineup <- random.pick(lineup, valid.heroes.id, side = 1)
lineup <- random.pick(lineup, valid.heroes.id, side = -1)
lineup
```