#y是x的拷贝
y
<-
x
#取得x的行数
l
<-
dim(x)[1]
#遍历每一行,如果该行最大值小于10,则从y中去除
for(
i
in
1
:
l)
{
if(
max(y[i,])
<
10)
y
<-
y[-i,]
}
如有疑问,请追问。
#y是x的拷贝
y
<-
x
#取得x的行数
l
<-
dim(x)[1]
#遍历每一行,如果该行最大值小于10,则从y中去除
for(
i
in
1
:
l)
{
if(
max(y[i,])
<
10)
y
<-
y[-i,]
}
如有疑问,请追问。