Help Required for R Markdown function.

Respected Sir,

I Mr Kishor Tried to get help online but wont found the solution so 
writting an email.

Step1: While writting in rmarkdown all codes get executted very well 
till the fuction Confusionmatrix were written on it.

Step2: As confusionmatrix command inserted following error is on 
screen board


processing file: RMarkdown.Rmd
  |.....                                                                 |
  7%
  ordinary text without R code

  |.........                                                             |
 13%
label: unnamed-chunk-1
  |..............                                                        |
 20%
  ordinary text without R code

  |...................                                                   |
 27%
label: unnamed-chunk-2
  |.......................                                               |
 33%
  ordinary text without R code

  |............................                                          |
 40%
label: unnamed-chunk-3
  |.................................                                     |
 47%
  ordinary text without R code

  |.....................................                                 |
 53%
label: unnamed-chunk-4
  |..........................................                            |
 60%
  ordinary text without R code

  |...............................................                       |
 67%
label: unnamed-chunk-5
  |...................................................                   |
 73%
  ordinary text without R code

  |........................................................              |
 80%
label: unnamed-chunk-6
  |.............................................................         |
 87%
  ordinary text without R code

  |.................................................................     |
 93%
label: unnamed-chunk-7
Quitting from lines 98-104 (RMarkdown.Rmd) Error in 
confusionMatrix(p1, train$CTestresult) :
  could not find function "confusionMatrix"
Calls: <Anonymous> ... handle -> withCallingHandlers -> withVisible -> 
eval
-> eval

Execution halted

Step4: As codes were written these


Using function ?sample? the data takes into sample of the specified 
size from the stored data ```{r}
set.seed(1234)
ind<-sample(2,nrow(FEVER1),replace=TRUE, pro = c(0.7,0.3)) 
train<-FEVER1[ind==1,] test<-FEVER1[ind==2,] ```

Application of Random Forest

```{r}
library(randomForest)
set.seed(123)
rfmodel<-randomForest(CTestresult~.,data = train,prox=TRUE)    # Random
Forest Model
plot(rfmodel,main="RandomForest Model")
print(rfmodel,train)                    # Printing Outcome of 'model for
Training Data

```

Prediction using Randome Forest Model
```{r}
# Prediction  of RandomForest Intial Model for Test and Train Data

ptrain1<-predict(rfmodel,train)              # Predicting model Prediction
On Training Data
  # First Six Outcomes with prediction
head(ptrain1)                              # Printing First Six Prediction
using Random Forest Model
head(train$CTestresult)                       # Printing First Six (6)
Actual outcomes

```


Tuning Model:
Tuning of Machine learning model is important step for building good 
model for best outcome of research.

```{r}
# Tunning RandomForest  Model using Algorithm

t<-tuneRF(train[,-11],train$CTestresult, mtryStart = 2,ntreeTry = 100, 
stepFactor =2,improve = 0.051,trace = TRUE, plot = TRUE, doBest=TRUE)


```

Building New Model:

New model was build on the basis of tunned model parameters and controls.

```{r}
# New Model After Tuning Random Forest Model

rf1<-randomForest(CTestresult~.,data = train,ntree = 100, mtry = 8, 
importance = TRUE,proximity = TRUE)

print(rf1)
```

Prediction and Confusion MAtrix:

outcome of model will mesuare with the help of predictive outcomes 
with the help of confusion matrix.

```{r}
# Prediction using Random Forest and Confusion Matrix for Train Data
p1<-predict(rf1,train)
cmatrix<-confusionMatrix(p1,train$CTestresult)
cmatrix


```


I will great thank full if you will help me for to remove the error.




--
*Kind Regards*

Kishor Raut
*Cell No.-07387706552*

        [[alternative HTML version deleted]]