Body surface temperature of multiple species of hibernating bats and mean annual surface temperature at the hibernation site.
data(bats)
A data frame with 528 rows and two variables:
MAST
numeric Mean annual surface temperature at the site in degrees Celsius
temperature
numeric Body surface temperature of hibernating bats in degrees Celsius
data(bats)
# remove outlier
dat <- bats[!(bats$MAST < 0 & bats$temperature > 7), ]
# fuzzy linear regression model as published
fit <- fuzzylm(temperature ~ MAST, data = dat, method = "plrls", h = 0.01, k1 = 5)
plot(fit, res = 30, col = "orange")
Run the code above in your browser using DataLab