set.seed(786)
seeds_dataset <- read.delim("C:/Users/Olurebi1800/Downloads/seeds_dataset.txt", header=FALSE)
 View(seeds_dataset)
 sd<-seeds_dataset
 feature_name<-c('area','perimeter','compactness','length_of_kernel','width.of.kernel','asymetry.coefficient','length.of.kernel.groove','type.of.seed')
library(readr)


HeartFailure_excerpt <- read.csv("C:/Users/Olurebi1800/Downloads/HeartFailure_excerpt(in).csv", header=TRUE)

View(HeartFailure_excerpt)
sd<-HeartFailure_excerpt
feature_name<-c('Age','CPK levels','Ejectionn fraction contraction','Platelets','Serum creatinine','Serum Sodium','Time','DEATH_EVENT')
colnames(HeartFailure_excerpt) <- feature_name
str(HeartFailure_excerpt)
## 'data.frame':    298 obs. of  8 variables:
##  $ Age                           : num  55 65 50 65 90 75 60 65 80 75 ...
##  $ CPK levels                    : int  7861 146 111 160 47 246 315 157 123 81 ...
##  $ Ejectionn fraction contraction: int  38 20 20 20 40 15 60 65 35 38 ...
##  $ Platelets                     : num  263358 162000 210000 327000 204000 ...
##  $ Serum creatinine              : num  1.1 1.3 1.9 2.7 2.1 1.2 1.1 1.5 9.4 4 ...
##  $ Serum Sodium                  : int  136 129 137 116 132 137 131 138 133 131 ...
##  $ Time                          : int  6 7 7 8 8 10 10 10 10 10 ...
##  $ DEATH_EVENT                   : int  1 1 1 1 1 1 1 1 1 1 ...
summary(HeartFailure_excerpt)
##       Age          CPK levels     Ejectionn fraction contraction
##  Min.   :40.00   Min.   :  23.0   Min.   :14.00                 
##  1st Qu.:51.00   1st Qu.: 115.8   1st Qu.:30.00                 
##  Median :60.00   Median : 249.5   Median :38.00                 
##  Mean   :60.79   Mean   : 581.8   Mean   :38.14                 
##  3rd Qu.:70.00   3rd Qu.: 582.0   3rd Qu.:45.00                 
##  Max.   :95.00   Max.   :7861.0   Max.   :80.00                 
##    Platelets      Serum creatinine  Serum Sodium        Time       
##  Min.   : 25100   Min.   :0.500    Min.   :113.0   Min.   :  6.00  
##  1st Qu.:212250   1st Qu.:0.900    1st Qu.:134.0   1st Qu.: 73.25  
##  Median :262000   Median :1.100    Median :137.0   Median :115.00  
##  Mean   :263353   Mean   :1.392    Mean   :136.6   Mean   :130.68  
##  3rd Qu.:303750   3rd Qu.:1.400    3rd Qu.:140.0   3rd Qu.:204.00  
##  Max.   :850000   Max.   :9.400    Max.   :148.0   Max.   :285.00  
##   DEATH_EVENT    
##  Min.   :0.0000  
##  1st Qu.:0.0000  
##  Median :0.0000  
##  Mean   :0.3188  
##  3rd Qu.:1.0000  
##  Max.   :1.0000

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.