Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/79.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在R语言中将标签文本转换为数值_R_Svm - Fatal编程技术网

如何在R语言中将标签文本转换为数值

如何在R语言中将标签文本转换为数值,r,svm,R,Svm,当我使用R语言调整SVM时,存在一个错误,即函数需要一个数值,以便可以进行回归。我想知道,如何将标签文本转换为数值,或者以另一种方式调整SVMV2是包含标签文本的标签列的名称 我的代码: dataset <- read.csv('wdbc.csv',head = FALSE) index <- 1:nrow(dataset) testindex <- sample(index, trunc(length(index)*30/100)) testset <- datas

当我使用
R
语言调整
SVM
时,存在一个错误,即函数需要一个数值,以便可以进行回归。我想知道,如何将标签文本转换为数值,或者以另一种方式调整
SVM
V2
是包含标签文本的标签列的名称

我的代码:

dataset <- read.csv('wdbc.csv',head = FALSE)
index <- 1:nrow(dataset)

testindex <- sample(index, trunc(length(index)*30/100))

testset <- dataset[testindex,]

trainset <- dataset[-testindex,]


#Assigment : find the optimal SVM for calssification (try linear, radial and tunning)
#start code
#Prepare the traindata
Nonum_train_data <- subset(trainset, select=-V1)
x_train <- subset(Nonum_train_data, select=-V2)
y_train <- subset(Nonum_train_data, select=V2)

#prepare testdata
Nonum_test_data <- subset(testset, select=-V1)
x_test <- subset(Nonum_test_data, select=-V2)

svm_tune <- tune(svm, train.x=x_train, train.y=y_train, 
             kernel="radial", ranges=list(cost=10^(-1:2), gamma=c(.5,1,2)))

print(svm_tune)

dataset您能显示数据的头部吗?可能
as.numeric(as.factor())
?谢谢。我发现
unlist()
可以做到这一点