mydata2 <- maydata1
# x == 10
α <- 0.63
beta <- 0.2
for (i in 1: x) {
j <- i 1
for(i in 1。 j){}。
CurColumn < - mydata2[/span>row, paste0("Columns"，i)]
NextColumn < - mydata2[/span>row, paste0("Columns"，j）]
DiffColumn <- NextColumn - CurColumn
if ( (CurColumn < = alpha & alpha < = NextColumn) | ( DiffColumn < β)) {
mydata2$T1 <- CurColumn
mydata2$T2 <- NextColumn
CurActParams < - mydata2[/span>row, paste0("AP"，i)]
NextActParams < - mydata2[/span>row, paste0("AP"，j）]
break。
}
}
}
附上資料框架供參考，我需要幫助計算T1和T2，基于代碼的條件。
在執行代碼時，我無法使用粘貼函式準確地輸入列名，它回傳的是一個字串。
例如。"Columns0"被回傳，mydata$"Columns0"而我所期望的是列應該像mydata$Columns0，所以該值可以被分配給新的變數。
uj5u.com熱心網友回復：
這對我來說很有效，希望它能對某人有所幫助。
#x == 10
alpha <- 0.63
beta <- 0.2
for (row in 1: nrow(mydata)） {
for (i in 0。 22） {
j <- i 1
CurColumn<-
mydata[row, paste0("Column", i)]
下一欄<-
mydata[row, paste0("Column"/span>。 j)]
CurAP<-
mydata[row, paste0("AP", i)]
NextAP<-
mydata[row, paste0("AP", j)]
Diff <- NextColumn - CurColumn
if ((CurColumn < =myda$alpha）|
(是。 na(CurColumn))）。
&
((myda$alpha < =NextColumn) |
(是。 na(NextColumn)))
|
(DiffColumn < beta)) {>
mydata$T1 <- CurColumn
mydata$T2 <- NextColumn
mydata$V1 <- CurAP
mydata$V2 <- NextAP
break
}
} }
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/328921.html
標籤：
下一篇：生成"維度詛咒"圖