[NeuralNet.R:6:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L6) *style:* **Only use double-quotes.**
```r
install.packages('neuralnet')
                 ^~~~~~~~~~~
```
[NeuralNet.R:12:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L12) *style:* **Use <-, not =, for assignment.**
```r
stockdata = read.csv("mf850-finalproject-data.csv")
          ^
```
[NeuralNet.R:13:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L13) *style:* **Use <-, not =, for assignment.**
```r
stockdata$Date = NULL
               ^
```
[NeuralNet.R:14:20:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L14) *style:* **Use <-, not =, for assignment.**
```r
stockdata$Industry = NULL
                   ^
```
[NeuralNet.R:15:14:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L15) *style:* **Use <-, not =, for assignment.**
```r
scaled_Stock = scale(stockdata)
             ^
```
[NeuralNet.R:16:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L16) *style:* **Use <-, not =, for assignment.**
```r
y = stockdata$RETMONTH_SPX
  ^
```
[NeuralNet.R:17:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L17) *style:* **Use <-, not =, for assignment.**
```r
x = stockdata
  ^
```
[NeuralNet.R:18:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L18) *style:* **Use <-, not =, for assignment.**
```r
x$RETMONTH_SPX = NULL
               ^
```
[NeuralNet.R:24:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L24) *style:* **Commas should always have a space after.**
```r
trainingdata <- cbind(traininginput,trainingoutput)
                                    ^
```
[NeuralNet.R:25:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L25) *style:* **Commas should always have a space after.**
```r
colnames(trainingdata) <- c("Input","Output")
                                    ^
```
[NeuralNet.R:31:36:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L31) *style:* **Commas should always have a space after.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                   ^
```
[NeuralNet.R:31:56:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L31) *style:* **Put spaces around all infix operators.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                                      ~^~
```
[NeuralNet.R:31:71:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L31) *style:* **Put spaces around all infix operators.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                                                     ~^~
```
[NeuralNet.R:38:27:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L38) *style:* **Place a space before left parenthesis, except in a function call.**
```r
testdata <- as.data.frame((1:10)^2) #Generate some squared numbers
                          ^
```
[NeuralNet.R:38:33:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L38) *style:* **Put spaces around all infix operators.**
```r
testdata <- as.data.frame((1:10)^2) #Generate some squared numbers
                               ~^~
```
[NeuralNet.R:48:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L48) *style:* **Commas should always have a space after.**
```r
cleanoutput <- cbind(testdata,sqrt(testdata),
                              ^
```
[NeuralNet.R:50:36:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L50) *style:* **Commas should always have a space after.**
```r
colnames(cleanoutput) <- c("Input","Expected Output","Neural Net Output")
                                   ^
```
[NeuralNet.R:50:54:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/NeuralNet.R#L50) *style:* **Commas should always have a space after.**
```r
colnames(cleanoutput) <- c("Input","Expected Output","Neural Net Output")
                                                     ^
```


[test.R:1:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/test.R#L1) *style:* **Commented code should be removed.**
```r
#install.packages("devtools")
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[test.R:2:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/test.R#L2) *style:* **Commented code should be removed.**
```r
#library(devtools)
 ^~~~~~~~~~~~~~~~~
```
[test.R:3:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/test.R#L3) *style:* **Commented code should be removed.**
```r
#devtools::use_travis()
 ^~~~~~~~~~~~~~~~~~~~~~
```
[test.R:6:57:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/test.R#L6) *style:* **Commas should always have a space after.**
```r
  packagestoinstall_split <- strsplit(packagestoinstall,", ")[[1]]
                                                        ^
```
[test.R:8:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/test.R#L8) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!packagename %in% rownames(installed.packages())){
      ^
```
[test.R:12:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/test.R#L12) *style:* **Commas should always have a space after.**
```r
      print(paste(packagename,"already installed"))
                              ^
```
[test.R:14:40:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/test.R#L14) *style:* **Put spaces around all infix operators.**
```r
    library(packagename, character.only=TRUE)
                                      ~^~
```
[test.R:25:4:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/test.R#L25) *style:* **Put spaces around all infix operators.**
```r
  x+y
  ~^~
```
[test.R:27:6:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/c5b9b3c01155a1f105a95c12e4a0a7494923c55b/test.R#L27) *style:* **Commas should always have a space after.**
```r
f1(1,2)
     ^
```


This is apparently broken in the jQuery v1.12.4 that comes with Wordpress.
Run this at the console and you will get true, not false:

```
var elem = jQuery.parseHTML("<input type='checkbox' checked='checked'/>")[0];
elem.checked = false;
console.log( jQuery(elem).clone()[0].checked);
```


Awesome, what about downPullView to load more items?


sysouts should not be used.


@elizoller can you check your git/clock? ```elizoller committed 6 days ago``` seems off by a lot


Hi,
You must be using CodeIgniter 3.1.2 and this version has a bug.
You will find the information about the bug and how to patch it [here](https://github.com/bcit-ci/CodeIgniter/issues/4892)


same thing here. do not commit sysout


Currently not to remove grey bottom space yet, it doesn't collapse itself even remove nuisance inline-script.
Seems a static placeholder, not generated by inline.


[cm_v1.R:1:15:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L1) *style:* **Use two spaces to indent, never tabs.**
```r
require(rpart)
              ^
```
[cm_v1.R:1:43:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L1) *style:* **Use two spaces to indent, never tabs.**
```r
mydata$Industry=as.factor(mydata$Industry)
                                          ^
```
[cm_v1.R:2:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
     ~^~~
```
[cm_v1.R:2:22:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                    ~^~
```
[cm_v1.R:2:60:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                                                          ~^~
```
[cm_v1.R:2:70:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                                                                    ~^~
```
[cm_v1.R:5:15:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
require(rpart)
              ^
```
[cm_v1.R:6:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L6) *style:* **Use <-, not =, for assignment.**
```r
mydata$Industry=as.factor(mydata$Industry)
               ^
```
[cm_v1.R:6:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L6) *style:* **Put spaces around all infix operators.**
```r
mydata$Industry=as.factor(mydata$Industry)
              ~^~
```
[cm_v1.R:6:43:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L6) *style:* **Trailing whitespace is superfluous.**
```r
mydata$Industry=as.factor(mydata$Industry)
                                          ^
```
[cm_v1.R:7:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/cm_v1.R#L7) *style:* **Use <-, not =, for assignment.**
```r
contrasts(mydata$Industry) = contr.treatment(213)
                           ^
```


无趣无趣 🏳


[data_exploration-12-5.R:9:23:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L9) *style:* **Put spaces around all infix operators.**
```r
hist(RETMONTH, breaks =60)
                      ^~
```
[data_exploration-12-5.R:11:35:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L11) *style:* **Put spaces around all infix operators.**
```r
(re_up <- length(RETMONTH[RETMONTH<0]))
                                 ~^~
```
[data_exploration-12-5.R:12:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L12) *style:* **Put spaces around all infix operators.**
```r
(re_down <- length(RETMONTH[RETMONTH>0]))
                                   ~^~
```
[data_exploration-12-5.R:12:42:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
(re_down <- length(RETMONTH[RETMONTH>0]))
                                         ^
```
[data_exploration-12-5.R:14:6:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L14) *style:* **Put spaces around all infix operators.**
```r
re_up/(re_up+re_down)
    ~^~
```
[data_exploration-12-5.R:14:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L14) *style:* **Place a space before left parenthesis, except in a function call.**
```r
re_up/(re_up+re_down)
      ^
```
[data_exploration-12-5.R:14:13:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L14) *style:* **Put spaces around all infix operators.**
```r
re_up/(re_up+re_down)
           ~^~
```
[data_exploration-12-5.R:16:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L16) *style:* **Put spaces around all infix operators.**
```r
up_down <- ifelse(RETMONTH >0, 1, 0)
                           ^~
```
[data_exploration-12-5.R:27:26:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L27) *style:* **Commas should always have a space after.**
```r
uniqueness <- apply(data,2,numb_unique)
                         ^
```
[data_exploration-12-5.R:27:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L27) *style:* **Commas should always have a space after.**
```r
uniqueness <- apply(data,2,numb_unique)
                           ^
```
[data_exploration-12-5.R:29:29:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L29) *style:* **Put spaces around all infix operators.**
```r
length(uniqueness[uniqueness<50])
                           ~^~
```
[data_exploration-12-5.R:31:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L31) *style:* **Put spaces around all infix operators.**
```r
which(uniqueness <50)
                 ^~
```
[data_exploration-12-5.R:35:32:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L35) *style:* **Only use double-quotes.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                               ^~~
```
[data_exploration-12-5.R:35:40:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L35) *style:* **Put spaces around all infix operators.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                                      ~^
```
[data_exploration-12-5.R:35:42:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L35) *style:* **Only use double-quotes.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                                         ^~~~~
```
[data_exploration-12-5.R:36:9:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L36) *style:* **Put spaces around all infix operators.**
```r
abline(h= mean(RETMONTH[n_low:n]), col = "blue", lwd = 2)
       ~^
```
[data_exploration-12-5.R:38:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L38) *style:* **Put spaces around all infix operators.**
```r
MSE_i <- (RETMONTH[n_low:n]-mean(RETMONTH[n_low:n]))^2
                          ~^~
```
[data_exploration-12-5.R:38:53:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L38) *style:* **Put spaces around all infix operators.**
```r
MSE_i <- (RETMONTH[n_low:n]-mean(RETMONTH[n_low:n]))^2
                                                   ~^~
```
[data_exploration-12-5.R:44:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L44) *style:* **Put spaces around all infix operators.**
```r
n_low <- n-1000
         ~^~
```
[data_exploration-12-5.R:44:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L44) *style:* **Trailing whitespace is superfluous.**
```r
n_low <- n-1000
               ^
```
[data_exploration-12-5.R:65:21:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L65) *style:* **Commas should always have a space after.**
```r
xs <- pca$x[n:n_low,1:9]
                    ^
```
[data_exploration-12-5.R:71:30:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L71) *style:* **Commas should always have a space after.**
```r
data2 <- data_no_ind[n_low:n,]
                             ^
```
[data_exploration-12-5.R:79:26:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L79) *style:* **Put spaces around all infix operators.**
```r
fit <- glm(updown~., data= data3, family = "binomial")
                        ~^
```
[data_exploration-12-5.R:83:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L83) *style:* **Put spaces around all infix operators.**
```r
cv_est <- cv.glm(data3, fit, K= 10)$delta[1]
                             ~^
```
[data_exploration-12-5.R:85:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L85) *style:* **Put spaces around all infix operators.**
```r
1-cv_est
~^~
```
[data_exploration-12-5.R:86:1:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/data_exploration-12-5.R#L86) *style:* **Trailing blank lines are superfluous.**
```r

^
```


[GPUAcceleratedClustering.R:4:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/GPUAcceleratedClustering.R#L4) *style:* **Only use double-quotes.**
```r
install.packages('rpud')
                 ^~~~~~
```
[GPUAcceleratedClustering.R:11:17:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/GPUAcceleratedClustering.R#L11) *style:* **Trailing whitespace is superfluous.**
```r
  set.seed(seed)
                ^
```
[GPUAcceleratedClustering.R:12:32:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/GPUAcceleratedClustering.R#L12) *style:* **Put spaces around all infix operators.**
```r
  matrix(rnorm(dim * num), nrow=num)
                              ~^~
```
[GPUAcceleratedClustering.R:21:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/GPUAcceleratedClustering.R#L21) *style:* **Variable and function names should be all lowercase.**
```r
  dgpu <- rpuDist(matrix)
          ^~~~~~~
```
[GPUAcceleratedClustering.R:21:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/GPUAcceleratedClustering.R#L21) *warning:* **no visible global function definition for ‘rpuDist’**
```r
  dgpu <- rpuDist(matrix)
          ^~~~~~~
```
[GPUAcceleratedClustering.R:22:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/GPUAcceleratedClustering.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
  rpuHclust(dgpu)
  ^~~~~~~~~
```
[GPUAcceleratedClustering.R:22:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/GPUAcceleratedClustering.R#L22) *warning:* **no visible global function definition for ‘rpuHclust’**
```r
  rpuHclust(dgpu)
  ^~~~~~~~~
```
[GPUAcceleratedClustering.R:35:29:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/GPUAcceleratedClustering.R#L35) *style:* **Put spaces around all infix operators.**
```r
print(system.time(cpuhclust <-run_cpu(m)))
                            ^~~
```
[GPUAcceleratedClustering.R:43:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/GPUAcceleratedClustering.R#L43) *style:* **Commas should always have a space after.**
```r
plot(gpuhclust,hang = -1)
               ^
```


[NeuralNet.R:6:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L6) *style:* **Only use double-quotes.**
```r
install.packages('neuralnet')
                 ^~~~~~~~~~~
```
[NeuralNet.R:12:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L12) *style:* **Use <-, not =, for assignment.**
```r
stockdata = read.csv("mf850-finalproject-data.csv")
          ^
```
[NeuralNet.R:13:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L13) *style:* **Use <-, not =, for assignment.**
```r
stockdata$Date = NULL
               ^
```
[NeuralNet.R:14:20:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L14) *style:* **Use <-, not =, for assignment.**
```r
stockdata$Industry = NULL
                   ^
```
[NeuralNet.R:15:14:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L15) *style:* **Use <-, not =, for assignment.**
```r
scaled_Stock = scale(stockdata)
             ^
```
[NeuralNet.R:16:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L16) *style:* **Use <-, not =, for assignment.**
```r
y = stockdata$RETMONTH_SPX
  ^
```
[NeuralNet.R:17:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L17) *style:* **Use <-, not =, for assignment.**
```r
x = stockdata
  ^
```
[NeuralNet.R:18:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L18) *style:* **Use <-, not =, for assignment.**
```r
x$RETMONTH_SPX = NULL
               ^
```
[NeuralNet.R:24:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L24) *style:* **Commas should always have a space after.**
```r
trainingdata <- cbind(traininginput,trainingoutput)
                                    ^
```
[NeuralNet.R:25:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L25) *style:* **Commas should always have a space after.**
```r
colnames(trainingdata) <- c("Input","Output")
                                    ^
```
[NeuralNet.R:31:36:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L31) *style:* **Commas should always have a space after.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                   ^
```
[NeuralNet.R:31:56:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L31) *style:* **Put spaces around all infix operators.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                                      ~^~
```
[NeuralNet.R:31:71:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L31) *style:* **Put spaces around all infix operators.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                                                     ~^~
```
[NeuralNet.R:38:27:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L38) *style:* **Place a space before left parenthesis, except in a function call.**
```r
testdata <- as.data.frame((1:10)^2) #Generate some squared numbers
                          ^
```
[NeuralNet.R:38:33:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L38) *style:* **Put spaces around all infix operators.**
```r
testdata <- as.data.frame((1:10)^2) #Generate some squared numbers
                               ~^~
```
[NeuralNet.R:48:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L48) *style:* **Commas should always have a space after.**
```r
cleanoutput <- cbind(testdata,sqrt(testdata),
                              ^
```
[NeuralNet.R:50:36:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L50) *style:* **Commas should always have a space after.**
```r
colnames(cleanoutput) <- c("Input","Expected Output","Neural Net Output")
                                   ^
```
[NeuralNet.R:50:54:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/NeuralNet.R#L50) *style:* **Commas should always have a space after.**
```r
colnames(cleanoutput) <- c("Input","Expected Output","Neural Net Output")
                                                     ^
```


[test.R:1:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/test.R#L1) *style:* **Commented code should be removed.**
```r
#install.packages("devtools")
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[test.R:2:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/test.R#L2) *style:* **Commented code should be removed.**
```r
#library(devtools)
 ^~~~~~~~~~~~~~~~~
```
[test.R:3:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/test.R#L3) *style:* **Commented code should be removed.**
```r
#devtools::use_travis()
 ^~~~~~~~~~~~~~~~~~~~~~
```
[test.R:6:57:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/test.R#L6) *style:* **Commas should always have a space after.**
```r
  packagestoinstall_split <- strsplit(packagestoinstall,", ")[[1]]
                                                        ^
```
[test.R:8:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/test.R#L8) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!packagename %in% rownames(installed.packages())){
      ^
```
[test.R:12:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/test.R#L12) *style:* **Commas should always have a space after.**
```r
      print(paste(packagename,"already installed"))
                              ^
```
[test.R:14:40:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/test.R#L14) *style:* **Put spaces around all infix operators.**
```r
    library(packagename, character.only=TRUE)
                                      ~^~
```
[test.R:25:4:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/test.R#L25) *style:* **Put spaces around all infix operators.**
```r
  x+y
  ~^~
```
[test.R:27:6:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/808e47e4e9d320ed87041274fd48d02e473952d5/test.R#L27) *style:* **Commas should always have a space after.**
```r
f1(1,2)
     ^
```


[これ](https://github.com/takose/superHogeMaker/commit/e2f3112887879bc38390180a9332d7e965199220#diff-14afa553acd9ca025911dc932a768ca4R510)初めて見たんだけど何やってるとこ？


あと[ここ](https://github.com/takose/superHogeMaker/commit/e2f3112887879bc38390180a9332d7e965199220#diff-14afa553acd9ca025911dc932a768ca4R139)だけなぜかimg.widthとimg.heightが使われてない


Yea, so I disabled the message because it was very spammy. I'd like to keep away from having persistent walls of debug messages being output as it prevents noticing messages we actually care about.

I like your idea of having a threshold where we report that rendering was too slow. That makes a lot of sense.


@pbca26 well, will try


l2use command line


Don't you want to transform both the key and the value to the normalized BCP 47 form here?


Shouldn't we canonicalize the languageTag here?


Esri Open Data ってなんだ？


[cm_v1.R:1:15:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L1) *style:* **Use two spaces to indent, never tabs.**
```r
require(rpart)
              ^
```
[cm_v1.R:1:43:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L1) *style:* **Use two spaces to indent, never tabs.**
```r
mydata$Industry=as.factor(mydata$Industry)
                                          ^
```
[cm_v1.R:2:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
     ~^~~
```
[cm_v1.R:2:22:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                    ~^~
```
[cm_v1.R:2:60:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                                                          ~^~
```
[cm_v1.R:2:70:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                                                                    ~^~
```
[cm_v1.R:5:15:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
require(rpart)
              ^
```
[cm_v1.R:6:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L6) *style:* **Use <-, not =, for assignment.**
```r
mydata$Industry=as.factor(mydata$Industry)
               ^
```
[cm_v1.R:6:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L6) *style:* **Put spaces around all infix operators.**
```r
mydata$Industry=as.factor(mydata$Industry)
              ~^~
```
[cm_v1.R:6:43:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L6) *style:* **Trailing whitespace is superfluous.**
```r
mydata$Industry=as.factor(mydata$Industry)
                                          ^
```
[cm_v1.R:7:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/cm_v1.R#L7) *style:* **Use <-, not =, for assignment.**
```r
contrasts(mydata$Industry) = contr.treatment(213)
                           ^
```


You'd like to pull from the bottom in some cases?


[data_exploration-12-5.R:9:23:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L9) *style:* **Put spaces around all infix operators.**
```r
hist(RETMONTH, breaks =60)
                      ^~
```
[data_exploration-12-5.R:11:35:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L11) *style:* **Put spaces around all infix operators.**
```r
(re_up <- length(RETMONTH[RETMONTH<0]))
                                 ~^~
```
[data_exploration-12-5.R:12:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L12) *style:* **Put spaces around all infix operators.**
```r
(re_down <- length(RETMONTH[RETMONTH>0]))
                                   ~^~
```
[data_exploration-12-5.R:12:42:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
(re_down <- length(RETMONTH[RETMONTH>0]))
                                         ^
```
[data_exploration-12-5.R:14:6:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L14) *style:* **Put spaces around all infix operators.**
```r
re_up/(re_up+re_down)
    ~^~
```
[data_exploration-12-5.R:14:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L14) *style:* **Place a space before left parenthesis, except in a function call.**
```r
re_up/(re_up+re_down)
      ^
```
[data_exploration-12-5.R:14:13:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L14) *style:* **Put spaces around all infix operators.**
```r
re_up/(re_up+re_down)
           ~^~
```
[data_exploration-12-5.R:16:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L16) *style:* **Put spaces around all infix operators.**
```r
up_down <- ifelse(RETMONTH >0, 1, 0)
                           ^~
```
[data_exploration-12-5.R:27:26:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L27) *style:* **Commas should always have a space after.**
```r
uniqueness <- apply(data,2,numb_unique)
                         ^
```
[data_exploration-12-5.R:27:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L27) *style:* **Commas should always have a space after.**
```r
uniqueness <- apply(data,2,numb_unique)
                           ^
```
[data_exploration-12-5.R:29:29:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L29) *style:* **Put spaces around all infix operators.**
```r
length(uniqueness[uniqueness<50])
                           ~^~
```
[data_exploration-12-5.R:31:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L31) *style:* **Put spaces around all infix operators.**
```r
which(uniqueness <50)
                 ^~
```
[data_exploration-12-5.R:35:32:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L35) *style:* **Only use double-quotes.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                               ^~~
```
[data_exploration-12-5.R:35:40:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L35) *style:* **Put spaces around all infix operators.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                                      ~^
```
[data_exploration-12-5.R:35:42:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L35) *style:* **Only use double-quotes.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                                         ^~~~~
```
[data_exploration-12-5.R:36:9:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L36) *style:* **Put spaces around all infix operators.**
```r
abline(h= mean(RETMONTH[n_low:n]), col = "blue", lwd = 2)
       ~^
```
[data_exploration-12-5.R:38:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L38) *style:* **Put spaces around all infix operators.**
```r
MSE_i <- (RETMONTH[n_low:n]-mean(RETMONTH[n_low:n]))^2
                          ~^~
```
[data_exploration-12-5.R:38:53:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L38) *style:* **Put spaces around all infix operators.**
```r
MSE_i <- (RETMONTH[n_low:n]-mean(RETMONTH[n_low:n]))^2
                                                   ~^~
```
[data_exploration-12-5.R:44:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L44) *style:* **Put spaces around all infix operators.**
```r
n_low <- n-1000
         ~^~
```
[data_exploration-12-5.R:44:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L44) *style:* **Trailing whitespace is superfluous.**
```r
n_low <- n-1000
               ^
```
[data_exploration-12-5.R:65:21:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L65) *style:* **Commas should always have a space after.**
```r
xs <- pca$x[n:n_low,1:9]
                    ^
```
[data_exploration-12-5.R:71:30:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L71) *style:* **Commas should always have a space after.**
```r
data2 <- data_no_ind[n_low:n,]
                             ^
```
[data_exploration-12-5.R:79:26:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L79) *style:* **Put spaces around all infix operators.**
```r
fit <- glm(updown~., data= data3, family = "binomial")
                        ~^
```
[data_exploration-12-5.R:83:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L83) *style:* **Put spaces around all infix operators.**
```r
cv_est <- cv.glm(data3, fit, K= 10)$delta[1]
                             ~^
```
[data_exploration-12-5.R:85:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L85) *style:* **Put spaces around all infix operators.**
```r
1-cv_est
~^~
```
[data_exploration-12-5.R:86:1:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/data_exploration-12-5.R#L86) *style:* **Trailing blank lines are superfluous.**
```r

^
```


[GPUAcceleratedClustering.R:4:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/GPUAcceleratedClustering.R#L4) *style:* **Only use double-quotes.**
```r
install.packages('rpud')
                 ^~~~~~
```
[GPUAcceleratedClustering.R:11:17:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/GPUAcceleratedClustering.R#L11) *style:* **Trailing whitespace is superfluous.**
```r
  set.seed(seed)
                ^
```
[GPUAcceleratedClustering.R:12:32:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/GPUAcceleratedClustering.R#L12) *style:* **Put spaces around all infix operators.**
```r
  matrix(rnorm(dim * num), nrow=num)
                              ~^~
```
[GPUAcceleratedClustering.R:21:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/GPUAcceleratedClustering.R#L21) *style:* **Variable and function names should be all lowercase.**
```r
  dgpu <- rpuDist(matrix)
          ^~~~~~~
```
[GPUAcceleratedClustering.R:21:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/GPUAcceleratedClustering.R#L21) *warning:* **no visible global function definition for ‘rpuDist’**
```r
  dgpu <- rpuDist(matrix)
          ^~~~~~~
```
[GPUAcceleratedClustering.R:22:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/GPUAcceleratedClustering.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
  rpuHclust(dgpu)
  ^~~~~~~~~
```
[GPUAcceleratedClustering.R:22:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/GPUAcceleratedClustering.R#L22) *warning:* **no visible global function definition for ‘rpuHclust’**
```r
  rpuHclust(dgpu)
  ^~~~~~~~~
```
[GPUAcceleratedClustering.R:35:29:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/GPUAcceleratedClustering.R#L35) *style:* **Put spaces around all infix operators.**
```r
print(system.time(cpuhclust <-run_cpu(m)))
                            ^~~
```
[GPUAcceleratedClustering.R:43:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/GPUAcceleratedClustering.R#L43) *style:* **Commas should always have a space after.**
```r
plot(gpuhclust,hang = -1)
               ^
```


[NeuralNet.R:6:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L6) *style:* **Only use double-quotes.**
```r
install.packages('neuralnet')
                 ^~~~~~~~~~~
```
[NeuralNet.R:12:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L12) *style:* **Use <-, not =, for assignment.**
```r
stockdata = read.csv("mf850-finalproject-data.csv")
          ^
```
[NeuralNet.R:13:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L13) *style:* **Use <-, not =, for assignment.**
```r
stockdata$Date = NULL
               ^
```
[NeuralNet.R:14:20:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L14) *style:* **Use <-, not =, for assignment.**
```r
stockdata$Industry = NULL
                   ^
```
[NeuralNet.R:15:14:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L15) *style:* **Use <-, not =, for assignment.**
```r
scaled_Stock = scale(stockdata)
             ^
```
[NeuralNet.R:16:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L16) *style:* **Use <-, not =, for assignment.**
```r
y = stockdata$RETMONTH_SPX
  ^
```
[NeuralNet.R:17:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L17) *style:* **Use <-, not =, for assignment.**
```r
x = stockdata
  ^
```
[NeuralNet.R:18:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L18) *style:* **Use <-, not =, for assignment.**
```r
x$RETMONTH_SPX = NULL
               ^
```
[NeuralNet.R:24:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L24) *style:* **Commas should always have a space after.**
```r
trainingdata <- cbind(traininginput,trainingoutput)
                                    ^
```
[NeuralNet.R:25:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L25) *style:* **Commas should always have a space after.**
```r
colnames(trainingdata) <- c("Input","Output")
                                    ^
```
[NeuralNet.R:31:36:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L31) *style:* **Commas should always have a space after.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                   ^
```
[NeuralNet.R:31:56:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L31) *style:* **Put spaces around all infix operators.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                                      ~^~
```
[NeuralNet.R:31:71:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L31) *style:* **Put spaces around all infix operators.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                                                     ~^~
```
[NeuralNet.R:38:27:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L38) *style:* **Place a space before left parenthesis, except in a function call.**
```r
testdata <- as.data.frame((1:10)^2) #Generate some squared numbers
                          ^
```
[NeuralNet.R:38:33:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L38) *style:* **Put spaces around all infix operators.**
```r
testdata <- as.data.frame((1:10)^2) #Generate some squared numbers
                               ~^~
```
[NeuralNet.R:48:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L48) *style:* **Commas should always have a space after.**
```r
cleanoutput <- cbind(testdata,sqrt(testdata),
                              ^
```
[NeuralNet.R:50:36:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L50) *style:* **Commas should always have a space after.**
```r
colnames(cleanoutput) <- c("Input","Expected Output","Neural Net Output")
                                   ^
```
[NeuralNet.R:50:54:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/NeuralNet.R#L50) *style:* **Commas should always have a space after.**
```r
colnames(cleanoutput) <- c("Input","Expected Output","Neural Net Output")
                                                     ^
```


I would use `patient.getFeatures()` instead of the raw XObject. This way prenatal phenotypes would also be taken into account, and I think the code would be much shorter.


[test.R:1:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/test.R#L1) *style:* **Commented code should be removed.**
```r
#install.packages("devtools")
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[test.R:2:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/test.R#L2) *style:* **Commented code should be removed.**
```r
#library(devtools)
 ^~~~~~~~~~~~~~~~~
```
[test.R:3:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/test.R#L3) *style:* **Commented code should be removed.**
```r
#devtools::use_travis()
 ^~~~~~~~~~~~~~~~~~~~~~
```
[test.R:6:57:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/test.R#L6) *style:* **Commas should always have a space after.**
```r
  packagestoinstall_split <- strsplit(packagestoinstall,", ")[[1]]
                                                        ^
```
[test.R:8:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/test.R#L8) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!packagename %in% rownames(installed.packages())){
      ^
```
[test.R:12:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/test.R#L12) *style:* **Commas should always have a space after.**
```r
      print(paste(packagename,"already installed"))
                              ^
```
[test.R:14:40:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/test.R#L14) *style:* **Put spaces around all infix operators.**
```r
    library(packagename, character.only=TRUE)
                                      ~^~
```
[test.R:25:4:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/test.R#L25) *style:* **Put spaces around all infix operators.**
```r
  x+y
  ~^~
```
[test.R:27:6:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/50563afa30ef9cbd12addb68d7186321e5610d11/test.R#L27) *style:* **Commas should always have a space after.**
```r
f1(1,2)
     ^
```


wowowowow


why space


I also autofixed a bunch of formatting stuff trying to understand the structure of things.


`(color-list->image (list) 5.321 0 0 0)` works perfectly in DrRacket.


I need to know what to do next and I have forgotten what I did to get Ameerah.


so who is taking this project? @ComMouse


天气案例


no


这不光是一个测试这么简单


所以ceph就自己实现了一套fs，没有用ext之类的，为了实现更好的控制


Reservation need a nested object refer to course with @ManyToOne


[cm_v1.R:1:15:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L1) *style:* **Use two spaces to indent, never tabs.**
```r
require(rpart)
              ^
```
[cm_v1.R:1:43:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L1) *style:* **Use two spaces to indent, never tabs.**
```r
mydata$Industry=as.factor(mydata$Industry)
                                          ^
```
[cm_v1.R:2:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
     ~^~~
```
[cm_v1.R:2:22:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                    ~^~
```
[cm_v1.R:2:60:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                                                          ~^~
```
[cm_v1.R:2:70:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                                                                    ~^~
```
[cm_v1.R:5:15:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
require(rpart)
              ^
```
[cm_v1.R:6:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L6) *style:* **Use <-, not =, for assignment.**
```r
mydata$Industry=as.factor(mydata$Industry)
               ^
```
[cm_v1.R:6:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L6) *style:* **Put spaces around all infix operators.**
```r
mydata$Industry=as.factor(mydata$Industry)
              ~^~
```
[cm_v1.R:6:43:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L6) *style:* **Trailing whitespace is superfluous.**
```r
mydata$Industry=as.factor(mydata$Industry)
                                          ^
```
[cm_v1.R:7:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/cm_v1.R#L7) *style:* **Use <-, not =, for assignment.**
```r
contrasts(mydata$Industry) = contr.treatment(213)
                           ^
```


[data_exploration-12-5.R:9:23:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L9) *style:* **Put spaces around all infix operators.**
```r
hist(RETMONTH, breaks =60)
                      ^~
```
[data_exploration-12-5.R:11:35:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L11) *style:* **Put spaces around all infix operators.**
```r
(re_up <- length(RETMONTH[RETMONTH<0]))
                                 ~^~
```
[data_exploration-12-5.R:12:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L12) *style:* **Put spaces around all infix operators.**
```r
(re_down <- length(RETMONTH[RETMONTH>0]))
                                   ~^~
```
[data_exploration-12-5.R:12:42:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
(re_down <- length(RETMONTH[RETMONTH>0]))
                                         ^
```
[data_exploration-12-5.R:14:6:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L14) *style:* **Put spaces around all infix operators.**
```r
re_up/(re_up+re_down)
    ~^~
```
[data_exploration-12-5.R:14:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L14) *style:* **Place a space before left parenthesis, except in a function call.**
```r
re_up/(re_up+re_down)
      ^
```
[data_exploration-12-5.R:14:13:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L14) *style:* **Put spaces around all infix operators.**
```r
re_up/(re_up+re_down)
           ~^~
```
[data_exploration-12-5.R:16:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L16) *style:* **Put spaces around all infix operators.**
```r
up_down <- ifelse(RETMONTH >0, 1, 0)
                           ^~
```
[data_exploration-12-5.R:27:26:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L27) *style:* **Commas should always have a space after.**
```r
uniqueness <- apply(data,2,numb_unique)
                         ^
```
[data_exploration-12-5.R:27:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L27) *style:* **Commas should always have a space after.**
```r
uniqueness <- apply(data,2,numb_unique)
                           ^
```
[data_exploration-12-5.R:29:29:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L29) *style:* **Put spaces around all infix operators.**
```r
length(uniqueness[uniqueness<50])
                           ~^~
```
[data_exploration-12-5.R:31:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L31) *style:* **Put spaces around all infix operators.**
```r
which(uniqueness <50)
                 ^~
```
[data_exploration-12-5.R:35:32:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L35) *style:* **Only use double-quotes.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                               ^~~
```
[data_exploration-12-5.R:35:40:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L35) *style:* **Put spaces around all infix operators.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                                      ~^
```
[data_exploration-12-5.R:35:42:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L35) *style:* **Only use double-quotes.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                                         ^~~~~
```
[data_exploration-12-5.R:36:9:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L36) *style:* **Put spaces around all infix operators.**
```r
abline(h= mean(RETMONTH[n_low:n]), col = "blue", lwd = 2)
       ~^
```
[data_exploration-12-5.R:38:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L38) *style:* **Put spaces around all infix operators.**
```r
MSE_i <- (RETMONTH[n_low:n]-mean(RETMONTH[n_low:n]))^2
                          ~^~
```
[data_exploration-12-5.R:38:53:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L38) *style:* **Put spaces around all infix operators.**
```r
MSE_i <- (RETMONTH[n_low:n]-mean(RETMONTH[n_low:n]))^2
                                                   ~^~
```
[data_exploration-12-5.R:44:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L44) *style:* **Put spaces around all infix operators.**
```r
n_low <- n-1000
         ~^~
```
[data_exploration-12-5.R:44:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L44) *style:* **Trailing whitespace is superfluous.**
```r
n_low <- n-1000
               ^
```
[data_exploration-12-5.R:65:21:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L65) *style:* **Commas should always have a space after.**
```r
xs <- pca$x[n:n_low,1:9]
                    ^
```
[data_exploration-12-5.R:71:30:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L71) *style:* **Commas should always have a space after.**
```r
data2 <- data_no_ind[n_low:n,]
                             ^
```
[data_exploration-12-5.R:79:26:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L79) *style:* **Put spaces around all infix operators.**
```r
fit <- glm(updown~., data= data3, family = "binomial")
                        ~^
```
[data_exploration-12-5.R:83:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L83) *style:* **Put spaces around all infix operators.**
```r
cv_est <- cv.glm(data3, fit, K= 10)$delta[1]
                             ~^
```
[data_exploration-12-5.R:85:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L85) *style:* **Put spaces around all infix operators.**
```r
1-cv_est
~^~
```
[data_exploration-12-5.R:86:1:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/data_exploration-12-5.R#L86) *style:* **Trailing blank lines are superfluous.**
```r

^
```


[GPUAcceleratedClustering.R:4:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/GPUAcceleratedClustering.R#L4) *style:* **Only use double-quotes.**
```r
install.packages('rpud')
                 ^~~~~~
```
[GPUAcceleratedClustering.R:11:17:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/GPUAcceleratedClustering.R#L11) *style:* **Trailing whitespace is superfluous.**
```r
  set.seed(seed)
                ^
```
[GPUAcceleratedClustering.R:12:32:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/GPUAcceleratedClustering.R#L12) *style:* **Put spaces around all infix operators.**
```r
  matrix(rnorm(dim * num), nrow=num)
                              ~^~
```
[GPUAcceleratedClustering.R:21:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/GPUAcceleratedClustering.R#L21) *style:* **Variable and function names should be all lowercase.**
```r
  dgpu <- rpuDist(matrix)
          ^~~~~~~
```
[GPUAcceleratedClustering.R:21:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/GPUAcceleratedClustering.R#L21) *warning:* **no visible global function definition for ‘rpuDist’**
```r
  dgpu <- rpuDist(matrix)
          ^~~~~~~
```
[GPUAcceleratedClustering.R:22:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/GPUAcceleratedClustering.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
  rpuHclust(dgpu)
  ^~~~~~~~~
```
[GPUAcceleratedClustering.R:22:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/GPUAcceleratedClustering.R#L22) *warning:* **no visible global function definition for ‘rpuHclust’**
```r
  rpuHclust(dgpu)
  ^~~~~~~~~
```
[GPUAcceleratedClustering.R:35:29:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/GPUAcceleratedClustering.R#L35) *style:* **Put spaces around all infix operators.**
```r
print(system.time(cpuhclust <-run_cpu(m)))
                            ^~~
```
[GPUAcceleratedClustering.R:43:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/GPUAcceleratedClustering.R#L43) *style:* **Commas should always have a space after.**
```r
plot(gpuhclust,hang = -1)
               ^
```


[NeuralNet.R:6:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L6) *style:* **Only use double-quotes.**
```r
install.packages('neuralnet')
                 ^~~~~~~~~~~
```
[NeuralNet.R:12:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L12) *style:* **Use <-, not =, for assignment.**
```r
stockdata = read.csv("mf850-finalproject-data.csv")
          ^
```
[NeuralNet.R:13:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L13) *style:* **Use <-, not =, for assignment.**
```r
stockdata$Date = NULL
               ^
```
[NeuralNet.R:14:20:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L14) *style:* **Use <-, not =, for assignment.**
```r
stockdata$Industry = NULL
                   ^
```
[NeuralNet.R:15:14:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L15) *style:* **Use <-, not =, for assignment.**
```r
scaled_Stock = scale(stockdata)
             ^
```
[NeuralNet.R:16:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L16) *style:* **Use <-, not =, for assignment.**
```r
y = stockdata$RETMONTH_SPX
  ^
```
[NeuralNet.R:17:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L17) *style:* **Use <-, not =, for assignment.**
```r
x = stockdata
  ^
```
[NeuralNet.R:18:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L18) *style:* **Use <-, not =, for assignment.**
```r
x$RETMONTH_SPX = NULL
               ^
```
[NeuralNet.R:24:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L24) *style:* **Commas should always have a space after.**
```r
trainingdata <- cbind(traininginput,trainingoutput)
                                    ^
```
[NeuralNet.R:25:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L25) *style:* **Commas should always have a space after.**
```r
colnames(trainingdata) <- c("Input","Output")
                                    ^
```
[NeuralNet.R:31:36:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L31) *style:* **Commas should always have a space after.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                   ^
```
[NeuralNet.R:31:56:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L31) *style:* **Put spaces around all infix operators.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                                      ~^~
```
[NeuralNet.R:31:71:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L31) *style:* **Put spaces around all infix operators.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                                                     ~^~
```
[NeuralNet.R:38:27:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L38) *style:* **Place a space before left parenthesis, except in a function call.**
```r
testdata <- as.data.frame((1:10)^2) #Generate some squared numbers
                          ^
```
[NeuralNet.R:38:33:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L38) *style:* **Put spaces around all infix operators.**
```r
testdata <- as.data.frame((1:10)^2) #Generate some squared numbers
                               ~^~
```
[NeuralNet.R:48:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L48) *style:* **Commas should always have a space after.**
```r
cleanoutput <- cbind(testdata,sqrt(testdata),
                              ^
```
[NeuralNet.R:50:36:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L50) *style:* **Commas should always have a space after.**
```r
colnames(cleanoutput) <- c("Input","Expected Output","Neural Net Output")
                                   ^
```
[NeuralNet.R:50:54:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/NeuralNet.R#L50) *style:* **Commas should always have a space after.**
```r
colnames(cleanoutput) <- c("Input","Expected Output","Neural Net Output")
                                                     ^
```


[test.R:1:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/test.R#L1) *style:* **Commented code should be removed.**
```r
#install.packages("devtools")
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[test.R:2:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/test.R#L2) *style:* **Commented code should be removed.**
```r
#library(devtools)
 ^~~~~~~~~~~~~~~~~
```
[test.R:3:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/test.R#L3) *style:* **Commented code should be removed.**
```r
#devtools::use_travis()
 ^~~~~~~~~~~~~~~~~~~~~~
```
[test.R:6:57:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/test.R#L6) *style:* **Commas should always have a space after.**
```r
  packagestoinstall_split <- strsplit(packagestoinstall,", ")[[1]]
                                                        ^
```
[test.R:8:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/test.R#L8) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!packagename %in% rownames(installed.packages())){
      ^
```
[test.R:12:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/test.R#L12) *style:* **Commas should always have a space after.**
```r
      print(paste(packagename,"already installed"))
                              ^
```
[test.R:14:40:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/test.R#L14) *style:* **Put spaces around all infix operators.**
```r
    library(packagename, character.only=TRUE)
                                      ~^~
```
[test.R:25:4:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/test.R#L25) *style:* **Put spaces around all infix operators.**
```r
  x+y
  ~^~
```
[test.R:27:6:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/9ba67f4a194c489795cab9627bfe878f607304b5/test.R#L27) *style:* **Commas should always have a space after.**
```r
f1(1,2)
     ^
```


@labkey-ians Should this get merged back to develop?


be careful to match up the indentation.  specifically around header here.


I like the use of html special character tags here.   keeps the strings from breaking on other browsers.


@at15 see https://github.com/dyweb/mos/issues/8. @GigaFlower is on this now.


page looks good.


i like how you pulled out event preventdefault to handle for all of the link functions


In WordPress 4.7 **_usort_terms_by_ID** is deprecated!  Use **wp_list_sort** instead.


**hopefully** it would have been worth the wait


the hidden .show function here also ends up showing the learn more because it's finding all hidden elements and showing them


[cm_v1.R:1:15:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L1) *style:* **Use two spaces to indent, never tabs.**
```r
require(rpart)
              ^
```
[cm_v1.R:1:43:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L1) *style:* **Use two spaces to indent, never tabs.**
```r
mydata$Industry=as.factor(mydata$Industry)
                                          ^
```
[cm_v1.R:2:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
     ~^~~
```
[cm_v1.R:2:22:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                    ~^~
```
[cm_v1.R:2:60:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                                                          ~^~
```
[cm_v1.R:2:70:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                                                                    ~^~
```
[cm_v1.R:5:15:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
require(rpart)
              ^
```
[cm_v1.R:6:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L6) *style:* **Use <-, not =, for assignment.**
```r
mydata$Industry=as.factor(mydata$Industry)
               ^
```
[cm_v1.R:6:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L6) *style:* **Put spaces around all infix operators.**
```r
mydata$Industry=as.factor(mydata$Industry)
              ~^~
```
[cm_v1.R:6:43:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L6) *style:* **Trailing whitespace is superfluous.**
```r
mydata$Industry=as.factor(mydata$Industry)
                                          ^
```
[cm_v1.R:7:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/cm_v1.R#L7) *style:* **Use <-, not =, for assignment.**
```r
contrasts(mydata$Industry) = contr.treatment(213)
                           ^
```


[data_exploration-12-5.R:9:23:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L9) *style:* **Put spaces around all infix operators.**
```r
hist(RETMONTH, breaks =60)
                      ^~
```
[data_exploration-12-5.R:11:35:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L11) *style:* **Put spaces around all infix operators.**
```r
(re_up <- length(RETMONTH[RETMONTH<0]))
                                 ~^~
```
[data_exploration-12-5.R:12:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L12) *style:* **Put spaces around all infix operators.**
```r
(re_down <- length(RETMONTH[RETMONTH>0]))
                                   ~^~
```
[data_exploration-12-5.R:12:42:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
(re_down <- length(RETMONTH[RETMONTH>0]))
                                         ^
```
[data_exploration-12-5.R:14:6:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L14) *style:* **Put spaces around all infix operators.**
```r
re_up/(re_up+re_down)
    ~^~
```
[data_exploration-12-5.R:14:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L14) *style:* **Place a space before left parenthesis, except in a function call.**
```r
re_up/(re_up+re_down)
      ^
```
[data_exploration-12-5.R:14:13:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L14) *style:* **Put spaces around all infix operators.**
```r
re_up/(re_up+re_down)
           ~^~
```
[data_exploration-12-5.R:16:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L16) *style:* **Put spaces around all infix operators.**
```r
up_down <- ifelse(RETMONTH >0, 1, 0)
                           ^~
```
[data_exploration-12-5.R:27:26:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L27) *style:* **Commas should always have a space after.**
```r
uniqueness <- apply(data,2,numb_unique)
                         ^
```
[data_exploration-12-5.R:27:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L27) *style:* **Commas should always have a space after.**
```r
uniqueness <- apply(data,2,numb_unique)
                           ^
```
[data_exploration-12-5.R:29:29:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L29) *style:* **Put spaces around all infix operators.**
```r
length(uniqueness[uniqueness<50])
                           ~^~
```
[data_exploration-12-5.R:31:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L31) *style:* **Put spaces around all infix operators.**
```r
which(uniqueness <50)
                 ^~
```
[data_exploration-12-5.R:35:32:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L35) *style:* **Only use double-quotes.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                               ^~~
```
[data_exploration-12-5.R:35:40:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L35) *style:* **Put spaces around all infix operators.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                                      ~^
```
[data_exploration-12-5.R:35:42:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L35) *style:* **Only use double-quotes.**
```r
plot(RETMONTH[n_low:n], type = 'l', col= 'red', lwd = 2)
                                         ^~~~~
```
[data_exploration-12-5.R:36:9:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L36) *style:* **Put spaces around all infix operators.**
```r
abline(h= mean(RETMONTH[n_low:n]), col = "blue", lwd = 2)
       ~^
```
[data_exploration-12-5.R:38:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L38) *style:* **Put spaces around all infix operators.**
```r
MSE_i <- (RETMONTH[n_low:n]-mean(RETMONTH[n_low:n]))^2
                          ~^~
```
[data_exploration-12-5.R:38:53:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L38) *style:* **Put spaces around all infix operators.**
```r
MSE_i <- (RETMONTH[n_low:n]-mean(RETMONTH[n_low:n]))^2
                                                   ~^~
```
[data_exploration-12-5.R:44:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L44) *style:* **Put spaces around all infix operators.**
```r
n_low <- n-1000
         ~^~
```
[data_exploration-12-5.R:44:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L44) *style:* **Trailing whitespace is superfluous.**
```r
n_low <- n-1000
               ^
```
[data_exploration-12-5.R:65:21:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L65) *style:* **Commas should always have a space after.**
```r
xs <- pca$x[n:n_low,1:9]
                    ^
```
[data_exploration-12-5.R:71:30:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L71) *style:* **Commas should always have a space after.**
```r
data2 <- data_no_ind[n_low:n,]
                             ^
```
[data_exploration-12-5.R:79:26:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L79) *style:* **Put spaces around all infix operators.**
```r
fit <- glm(updown~., data= data3, family = "binomial")
                        ~^
```
[data_exploration-12-5.R:83:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L83) *style:* **Put spaces around all infix operators.**
```r
cv_est <- cv.glm(data3, fit, K= 10)$delta[1]
                             ~^
```
[data_exploration-12-5.R:85:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L85) *style:* **Put spaces around all infix operators.**
```r
1-cv_est
~^~
```
[data_exploration-12-5.R:86:1:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/data_exploration-12-5.R#L86) *style:* **Trailing blank lines are superfluous.**
```r

^
```


[GPUAcceleratedClustering.R:4:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/GPUAcceleratedClustering.R#L4) *style:* **Only use double-quotes.**
```r
install.packages('rpud')
                 ^~~~~~
```
[GPUAcceleratedClustering.R:11:17:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/GPUAcceleratedClustering.R#L11) *style:* **Trailing whitespace is superfluous.**
```r
  set.seed(seed)
                ^
```
[GPUAcceleratedClustering.R:12:32:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/GPUAcceleratedClustering.R#L12) *style:* **Put spaces around all infix operators.**
```r
  matrix(rnorm(dim * num), nrow=num)
                              ~^~
```
[GPUAcceleratedClustering.R:21:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/GPUAcceleratedClustering.R#L21) *style:* **Variable and function names should be all lowercase.**
```r
  dgpu <- rpuDist(matrix)
          ^~~~~~~
```
[GPUAcceleratedClustering.R:21:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/GPUAcceleratedClustering.R#L21) *warning:* **no visible global function definition for ‘rpuDist’**
```r
  dgpu <- rpuDist(matrix)
          ^~~~~~~
```
[GPUAcceleratedClustering.R:22:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/GPUAcceleratedClustering.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
  rpuHclust(dgpu)
  ^~~~~~~~~
```
[GPUAcceleratedClustering.R:22:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/GPUAcceleratedClustering.R#L22) *warning:* **no visible global function definition for ‘rpuHclust’**
```r
  rpuHclust(dgpu)
  ^~~~~~~~~
```
[GPUAcceleratedClustering.R:35:29:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/GPUAcceleratedClustering.R#L35) *style:* **Put spaces around all infix operators.**
```r
print(system.time(cpuhclust <-run_cpu(m)))
                            ^~~
```
[GPUAcceleratedClustering.R:43:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/GPUAcceleratedClustering.R#L43) *style:* **Commas should always have a space after.**
```r
plot(gpuhclust,hang = -1)
               ^
```


[NeuralNet.R:6:18:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L6) *style:* **Only use double-quotes.**
```r
install.packages('neuralnet')
                 ^~~~~~~~~~~
```
[NeuralNet.R:12:11:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L12) *style:* **Use <-, not =, for assignment.**
```r
stockdata = read.csv("mf850-finalproject-data.csv")
          ^
```
[NeuralNet.R:13:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L13) *style:* **Use <-, not =, for assignment.**
```r
stockdata$Date = NULL
               ^
```
[NeuralNet.R:14:20:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L14) *style:* **Use <-, not =, for assignment.**
```r
stockdata$Industry = NULL
                   ^
```
[NeuralNet.R:15:14:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L15) *style:* **Use <-, not =, for assignment.**
```r
scaled_Stock = scale(stockdata)
             ^
```
[NeuralNet.R:16:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L16) *style:* **Use <-, not =, for assignment.**
```r
y = stockdata$RETMONTH_SPX
  ^
```
[NeuralNet.R:17:3:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L17) *style:* **Use <-, not =, for assignment.**
```r
x = stockdata
  ^
```
[NeuralNet.R:18:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L18) *style:* **Use <-, not =, for assignment.**
```r
x$RETMONTH_SPX = NULL
               ^
```
[NeuralNet.R:24:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L24) *style:* **Commas should always have a space after.**
```r
trainingdata <- cbind(traininginput,trainingoutput)
                                    ^
```
[NeuralNet.R:25:37:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L25) *style:* **Commas should always have a space after.**
```r
colnames(trainingdata) <- c("Input","Output")
                                    ^
```
[NeuralNet.R:31:36:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L31) *style:* **Commas should always have a space after.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                   ^
```
[NeuralNet.R:31:56:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L31) *style:* **Put spaces around all infix operators.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                                      ~^~
```
[NeuralNet.R:31:71:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L31) *style:* **Put spaces around all infix operators.**
```r
net.sqrt <- neuralnet(Output~Input,trainingdata, hidden=100, threshold=0.01)
                                                                     ~^~
```
[NeuralNet.R:38:27:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L38) *style:* **Place a space before left parenthesis, except in a function call.**
```r
testdata <- as.data.frame((1:10)^2) #Generate some squared numbers
                          ^
```
[NeuralNet.R:38:33:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L38) *style:* **Put spaces around all infix operators.**
```r
testdata <- as.data.frame((1:10)^2) #Generate some squared numbers
                               ~^~
```
[NeuralNet.R:48:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L48) *style:* **Commas should always have a space after.**
```r
cleanoutput <- cbind(testdata,sqrt(testdata),
                              ^
```
[NeuralNet.R:50:36:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L50) *style:* **Commas should always have a space after.**
```r
colnames(cleanoutput) <- c("Input","Expected Output","Neural Net Output")
                                   ^
```
[NeuralNet.R:50:54:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/NeuralNet.R#L50) *style:* **Commas should always have a space after.**
```r
colnames(cleanoutput) <- c("Input","Expected Output","Neural Net Output")
                                                     ^
```


[test.R:1:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/test.R#L1) *style:* **Commented code should be removed.**
```r
#install.packages("devtools")
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[test.R:2:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/test.R#L2) *style:* **Commented code should be removed.**
```r
#library(devtools)
 ^~~~~~~~~~~~~~~~~
```
[test.R:3:2:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/test.R#L3) *style:* **Commented code should be removed.**
```r
#devtools::use_travis()
 ^~~~~~~~~~~~~~~~~~~~~~
```
[test.R:6:57:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/test.R#L6) *style:* **Commas should always have a space after.**
```r
  packagestoinstall_split <- strsplit(packagestoinstall,", ")[[1]]
                                                        ^
```
[test.R:8:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/test.R#L8) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!packagename %in% rownames(installed.packages())){
      ^
```
[test.R:12:31:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/test.R#L12) *style:* **Commas should always have a space after.**
```r
      print(paste(packagename,"already installed"))
                              ^
```
[test.R:14:40:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/test.R#L14) *style:* **Put spaces around all infix operators.**
```r
    library(packagename, character.only=TRUE)
                                      ~^~
```
[test.R:25:4:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/test.R#L25) *style:* **Put spaces around all infix operators.**
```r
  x+y
  ~^~
```
[test.R:27:6:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/d035573142cf40bc258c1c3c7b9986c32c1a2a27/test.R#L27) *style:* **Commas should always have a space after.**
```r
f1(1,2)
     ^
```


why 300 ? there are 256 unique characters its fine if we declare array of 256


I love tea, sunlight


`i love tea,sunlight`


why are you comparing to e and r existence in a string what if I change the pattern and give a new pattern if they dont have e and r example string is apple pattern is pp


test


This is no longer deprecared.


test surf


Eh


http://www.geeksforgeeks.org/check-string-follows-order-characters-defined-pattern-not/

patterns actual question geek4geeks

On Wed, Dec 7, 2016 at 1:11 AM, manishneversu <notifications@github.com>
wrote:

> why 300 ? there are 256 unique characters its fine if we declare array of
> 256
>
> —
> You are receiving this because you are subscribed to this thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/snehadontharaju/StringsInterview/commit/15160e3c1c1be80d7d68df87e3e9bad5f613d09c#commitcomment-20098763>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/ASZi9vCTorC0qRhh9mu59oI-EuKH_qw3ks5rFk4EgaJpZM4LGO4K>
> .
>


Is there any reason why you remove the false parameter from openssl_random_pseudo_bytes? Was it causing problems?


I dont know what went wrong it would not let me push from my desktop so I made an archive file and added it though the git website.


[cm_v1.R:1:15:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L1) *style:* **Use two spaces to indent, never tabs.**
```r
require(rpart)
              ^
```
[cm_v1.R:1:43:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L1) *style:* **Use two spaces to indent, never tabs.**
```r
mydata$Industry=as.factor(mydata$Industry)
                                          ^
```
[cm_v1.R:2:7:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
     ~^~~
```
[cm_v1.R:2:22:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                    ~^~
```
[cm_v1.R:2:60:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                                                          ~^~
```
[cm_v1.R:2:70:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L2) *style:* **Put spaces around all infix operators.**
```r
mydata<-read.csv(file="mf850-finalproject-data.csv", header=TRUE, sep=",")
                                                                    ~^~
```
[cm_v1.R:5:15:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
require(rpart)
              ^
```
[cm_v1.R:6:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L6) *style:* **Use <-, not =, for assignment.**
```r
mydata$Industry=as.factor(mydata$Industry)
               ^
```
[cm_v1.R:6:16:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L6) *style:* **Put spaces around all infix operators.**
```r
mydata$Industry=as.factor(mydata$Industry)
              ~^~
```
[cm_v1.R:6:43:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L6) *style:* **Trailing whitespace is superfluous.**
```r
mydata$Industry=as.factor(mydata$Industry)
                                          ^
```
[cm_v1.R:7:28:](https://github.com/myellen/MF850_Computational_Finance_Final/blob/156e8c4fdfeb18b98d85a2258d5560866dce9560/cm_v1.R#L7) *style:* **Use <-, not =, for assignment.**
```r
contrasts(mydata$Industry) = contr.treatment(213)
                           ^
```