我有這些數據: x <- c(6.626,6.6234,6.6206,6.6008,6.5568,6.4953,6.4441,6.2186,6.0942,5.8833,5.702,5.4361,5.0501,4.744,4.1598,3.9318,3.4479,3.3462,3.108,2.8468,2.3365,2.1574,1.899,1.5644,1.3072,1.1579,0.95783,
loess.smooth <- function(dat) {
dat <- dat[complete.cases(dat),]
## response
vars <- colnames(dat)
## covariate
id <- 1:nrow(dat)
## define a loess filter function (fitt
我想將一個黃土平滑擬合曲線添加到我在R的散點圖中。我似乎無法弄清楚我的代碼下面出現了什麼問題......僅供參考,變量poverty和binge_all是數據幀correlational_data的列名。我已經加載了ggplot2包/庫。 library(ggplot2)
p <- ggplot(correlational_data, aes(poverty, binge_all))
p
我正在嘗試編寫for循環來重複(c)和(d)100次。我想在for循環的每次迭代中打印TRS-TRS0的估計值。它應該停止算法,如果它很小(比如說1/10000)。最後,我希望它創建一個顯示每個值的情節。 我想我有這裏的一切,但是當我運行它時,我沒有看到任何事情發生。我錯過了什麼嗎? for (i in 1:100){
#c)
fit1 = loess(res~x2, data