# mtcars <- view(mtcars)
sq_sum_diff <- function(d, w) { # d, and c are columns draft and weight
a <- d^2
b <- w^2
p <- sqrt(sum(a^2 - b^2)
return(p)
}
我想要回傳的是一個 df，兩者之間的平方差。
uj5u.com熱心網友回復：
我認為這將完成您想要完成的任務：
data(mtcars)
sq_sum_diff <- function(d, w) {
sqrt(sum(d^2 - w^2))
}
sq_sum_diff(mtcars$drat, mtcars$wt)
library(tidyverse)
mtcars %>%
summarize(dif_sqr = sq_sum_diff(drat, wt))
為什么要對值進行兩次平方？一次分配d^2給a和 計算平方和時再次分配？此外，您缺少sqrt. 最后，您不需要分配給pthen return(p)，該函式將自動回傳最后一行。為了將來參考，您可以簡單地呼叫data(mtcars)而無需將其分配給mtcars.
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/389567.html
上一篇：正確使用地圖物件而不是引數