Hendrik/xgboost
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

code simplification

Browse Source
This commit is contained in:
El Potaeto 2015-03-12 23:44:08 +01:00
parent 09091884be
commit 93a019d174
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
R-package/vignettes/discoverYourData.Rmd
View File

@ -153,7 +153,7 @@ head(sparse_matrix)
Create the output `numeric` vector (not as a sparse `Matrix`): Create the output `numeric` vector (not as a sparse `Matrix`):
```{r} ```{r}
output_vector = df[,Y:=0][Improved == "Marked",Y:=1][,Y] output_vector = df[,Improved] == "Marked"
``` ```
1. set `Y` vector to `0`; 1. set `Y` vector to `0`;
@ -261,21 +261,21 @@ Let's check some **Chi2** between each of these features and the label.
Higher **Chi2** means better correlation. Higher **Chi2** means better correlation.
```{r, warning=FALSE, message=FALSE} ```{r, warning=FALSE, message=FALSE}
c2 <- chisq.test(df$Age, df$Y) c2 <- chisq.test(df$Age, output_vector)
print(c2) print(c2)
``` ```
Pearson correlation between Age and illness disapearing is **`r round(c2$statistic, 2 )`**. Pearson correlation between Age and illness disapearing is **`r round(c2$statistic, 2 )`**.
```{r, warning=FALSE, message=FALSE} ```{r, warning=FALSE, message=FALSE}
c2 <- chisq.test(df$AgeDiscret, df$Y) c2 <- chisq.test(df$AgeDiscret, output_vector)
print(c2) print(c2)
``` ```
Our first simplification of Age gives a Pearson correlation is **`r round(c2$statistic, 2)`**. Our first simplification of Age gives a Pearson correlation is **`r round(c2$statistic, 2)`**.
```{r, warning=FALSE, message=FALSE} ```{r, warning=FALSE, message=FALSE}
c2 <- chisq.test(df$AgeCat, df$Y) c2 <- chisq.test(df$AgeCat, output_vector)
print(c2) print(c2)
``` ```