library(rstudioapi)

# Getting the path of your current open file
current_path = rstudioapi::getActiveDocumentContext()$path 
setwd(dirname(current_path ))
crick=read.csv("Crickets.csv")
head(crick)
plot(crick$chirp_rate~crick$temp, 
     main="Cricket Chirp Rate", 
     xlab="Temperature (F)", 
     ylab="Chirp rate (Hz)")
my_fit=lm(crick$chirp_rate~crick$temp+0)
summary(my_fit)

#my_fit["Multiple R-squared"]
summary(my_fit)$r.squared

my_fit_2=lm(crick$chirp_rate~crick$temp)
summary(my_fit_2)

#my_fit["Multiple R-squared"]
summary(my_fit_2)$r.squared