所以這給出了我所需要的整個列表: max <- function(x) {
n <- data.frame(x)
factored <- n[sapply(n, is.factor)]
dt_res = data.frame()
for (i in 1:ncol(factored)) {
dt_temp = data.frame(t(tabl
我想創建一個函數,使得對於某個數據框,它可以使用列名作爲函數的第一個參數,並使用列的值(特定列的行值)作爲函數中的第二個參數。然後,第二個參數的值將根據開關函數中設置的值轉換爲數值。 這是我一直在努力的工作。 # I also put print("ERROR in Question")) if there is no match at all
scoreraw <- function(Ques