Bonsoir,

S'il vous plait, quelqu'un peut m'aider à corriger ce code ?



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
require(cluster) 
require(class)
require(stats)
library(RWeka)
options(max.print=1000000) 
 
dat<-read.table("https://archive.ics.uci.edu/ml/machine-learning-databases/ionosphere/ionosphere.data",sep=",")
dat
names(dat) <- c('v1','v2','v3','v4','v5','v6','v7','v8','v9','v10','v11','v12','v13','v14','v15','v16','v17','v18','v19','v20','v21','v22','v23','v24','v25','v26','v27','v28','v29','v30','v31','v32','v33','v34','v35')
head(dat)
#clean up data
require(stringr)
#remove whitespace
dat <-t(apply(dat, 1, function(x) {str_replace(x, "\\s+", "")}))
dat <-t(apply(dat, 1, function(x) {str_replace(x, "\\D", NA)}))