?chol
?mvnnorm
source('~/Documents/GitHub/GP_gradient/GPR/SyntheticDataGen_LatLong.R', echo=TRUE)
plogis(-2)
? rbinom
rbinom(N, df_group$n, plogis(theta))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
rbinom(1,47,plogis(-2))
plogis(0)
source('~/Documents/GitHub/GP_gradient/GPR/SyntheticDataGen_LatLong.R', echo=TRUE)
source('~/Documents/GitHub/GP_gradient/GPR/SyntheticDataGen_LatLong.R', echo=TRUE)
source('~/Documents/GitHub/GP_gradient/GPR/SyntheticDataGen_LatLong.R', echo=TRUE)
plogis(2)
qlogis(0.88079)
ln(1)
qlogis(0.88079)
log(2)
log(10)
log(1+exp(2))
?plogis
source('~/Documents/GitHub/GP_gradient/GPR/SyntheticDataGen_LatLong.R', echo=TRUE)
latitude_u
longitude_u
head(df_group)
theta
sd(theta)
setwd("~/Documents/GitHub/GP-Idiographic-Measurement/data")
Data = read_csv("LOOPRDataAgeGender.csv") %>% filter(Age <= 50) %>%
mutate(agegroup = cut(Age, breaks = c(18, 25, 30, 35, 40, 45, 50), include.lowest = T, labels = 1:6)) %>%
stratified(., c("agegroup"), 300, list(agegroup=1:6)) %>% as_tibble
items = Data[,4:63]
require(tidyverse); require(glmnet); require(psych);require(splitstackshape)
Data = read_csv("LOOPRDataAgeGender.csv") %>% filter(Age <= 50) %>%
mutate(agegroup = cut(Age, breaks = c(18, 25, 30, 35, 40, 45, 50), include.lowest = T, labels = 1:6)) %>%
stratified(., c("agegroup"), 300, list(agegroup=1:6)) %>% as_tibble
items = Data[,4:63]
source('~/Documents/GitHub/GP-Idiographic-Measurement/data/LOOPRP code.R', echo=TRUE)
head(Data)
