.libPaths()
.libPaths()
library(bmstdr)
library(ggplot2)
library(coda)
library(spTimer)
library(spTDyn)
library(rstan)
Sys.which(make)
Sys.which("make")
Sys.which("make")
Sys.which("make")
Sys.which("make")
2+2
?mean
setwd("C:/Users/sks/Dropbox/MATH3091/datasets")
shuttle <- read.csv("shuttle.csv")
shuttle$n <- rep(6, nrow(shuttle))
shuttle_glm0 <- glm(n_damaged / n ~ temp,
data = shuttle, family = binomial, weights = n)
shuttle_glm1 <- glm(n_damaged / n ~ temp + orbiter,
data = shuttle, family = binomial, weights = n)
