未定義の列が選択されていません

Question

私はコーディングが初めてで、研究目的でこのコードを同僚から受け取りました。このコードの元のデータセットは、4つのスペクトル変数、12のテクスチャ変数、および合計で16の変数をもたらすスペクトルおよびテクスチャの組み合わせを有していた。私はテクスチャ変数だけでコードを実行していますが、新しいデータセットには6つのテクスチャ変数しかありません。私は12のテクスチャ変数を持つ元のコードの最初の部分を添付しています。誰かが6つのテクスチャ変数を持つ新しいデータセットを使って自分のコードを変更するのを助けてくれますか？最後に6つのテクスチャ変数だけで元のデータセットが設定されているのとまったく同じ方法です。

#change your work directory 
############################# 
setwd("C:/Texture") 

############################ 

#output all resuls to a text file 
#change apend to TRUE to record all analysis 
#sink("Results.txt",append =F) 

source("plsrfsource.r") 

    data<-read.csv("texture0ratios.csv",header=T, na.strings=c(".", "NA", "", "?")) 

# Check the dataset 

colnames(data) 

#select response variable 
#this example uses EnumAge 

################ 
y <-data$EnumAge 
################ 

#make sure that your explantory variables are in the same order as the example dataset 

####################### 
#texture variables only 

x<-data[,16:27] 

#spectral variables only 
#x<-data[,12:15] 

#using all the variables 
#x<-data[,12:27] 
###################### 


colnames(x) 

#there must be 12 texture variables 
#4 spectral variables 
length (x) 

#join the x and y 

dataset<-cbind(y,x) 

# split into test and training datasets 

set.seed(123) 

inTrain <- createDataPartition(y, p = 0.7, list = F) 
dataTrain<- dataset[inTrain[,1],] 
dataTest <- dataset[-inTrain,] 

trainY<-dataTrain$y 
trainX<-as.matrix(dataTrain[-1]) 

testY<-dataTest$y 
testX<-as.matrix(dataTest[-1]) 

Answer 1

あなたが唯一のいくつかのマイナーな調整を行う必要があります：

####################### 
#texture variables only 

x<-data[,16:21] 

#spectral variables only 
#x<-data[,12:15] 

#using all the variables 
#x<-data[,12:21] 
###################### 

はこれで問題が解決しない場合は、私に教えてください。ここ

画像です！