如何在兩個滑塊之間繪制線性回歸？

Question

FitWeibull <- function(data, xinf, xsup){
sub.data <- data[(data$X >= log(xinf) & data$X <= log(xsup),]
my.lm <- lm(Y~X, data = sub.data)
return(my.lm)
}

Xinf和xsup是我的線性回歸的極限，在有光澤的人身上會移動滑塊（並選擇一個范圍），問題是我如何才能通過xinf和xsup來識別兩個滑塊？

謝謝。

Answer 1

嘗試這個：

在ui

sliderInput(inputId=XValues, label="This slider determines Xinf and Xsup or 
    whatever", min=0, max=1000, value=c(0,1000))

在您的服務器中。R：

FitWeibull <- function(data, xinf, xsup){
sub.data <- data[(data$X >= log(input$XValues[1]) & data$X <= log(input$XValues[2]),]
my.lm <- lm(Y~X, data = sub.data)
return(my.lm)
}

我只是輸入0和1000作為最小值和最大值的示例值，您應該輸入/ calculate合理的值。 這將使滑塊返回兩個值，您可以使用XValues [1]和XValues [2]訪問它們