kin<-c(-3,5,7,-6)
kin1<-kin[0<=kin] #0以上
kin2<-kin[0>kin] #0未満
y<-c(1,2,3,4)
kihon<-data.frame(y) #データフレーム作成
プラスとマイナスを条件分岐で計算
for(i in 1:length(kin){
if(kin1){
pu<-data.frame(kin1*10) #プラスの計算
colnames(pu)<-c("point") #ポイント名の変更
}
if(kin2){
mi<-data.frame(kin2*30) #マイナスの計算
colnames(pu)<-c("point") #ポイント名の変更
}
}
pumi<-rbind(pu,mi) #プラスとマイナスのデータを連結
mydata<-data.frame(y,pumi) #データフレーム完成
このようにコードを書くと
There were 50 or more warnings(use warning() to see the first 50)
上記のような赤メッセージが表示されます。
あと、mydataのデータフレームはpumiのマイナスとプラスを分けて別の方法で計算してから、もう一度同じ列に入れなおしているので、yのデータのような1,2,3,4の並びになりません。
データフレームと上の赤メッセージはどのように対処すればよいでしょうか。