set.seed(123)
library(randomForest)
library(gmodels)
library(neuralnet)
library(RSNNS)
library(Rcpp)
library(lattice)
library(ggplot2)
library(caret)
set.seed(123)
setwd("C:/Users/Mitul Shah/Desktop/UCI_HAR_Dataset/UCI_HAR_Dataset")
train_data<-read.table("train/X_train.txt")
train_lables<-read.table("train/Y_train.txt")
test_data<-read.table("test/X_test.txt")
test_lables<-read.table("test/Y_test.txt")
col_names <- readLines("features.txt")
colnames(train_data)<-make.names(col_names)
colnames(test_data)<-make.names(col_names)
colnames(train_lables)<-"lable"
colnames(test_lables)<-"lable"
train_final<-cbind(train_lables,train_data)
test_final<-cbind(test_lables,test_data)
final_data<-rbind(train_final,test_final)
final_data$lable<-factor(final_data$lable)
model_mlp
caret :: train (lable ~., Data = final_data [ttt,], method = "mlp")
Ошибка в '[.data.frame' (final_data, ttt,) : объект 'ttt' не найден