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.R

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作为min和max的示例值，你应该放入/计算合理的东西。这将生成一个返回两个值的滑块，您可以使用XValues [1]和XValues [2]

访问它们

如何在两个滑块之间绘制线性回归？

1 个答案: