.Rhistory

#seed per la riproducibilità
set.seed(123)

# PW 
url <- "https://francesco-vespignani.github.io/RepetitionMaze/run/?distr=nw&id="

# Genera 12 ID casuali
random_ids <- sample(1000:9999, 12, replace = FALSE)

# Assegna gli ID all'URL di base
urls <- paste(base_url, random_ids, sep = "")

# Stampa gli URL
print(urls)

random_links <- {id = sample(1000:9999, 12, replace = FALSE)}
random_links
random_links.id
random_links$id
random_links
base_url <- "https://francesco-vespignani.github.io/RepetitionMaze/run/?distr=nw&id="

# Genera 12 ID casuali
random_links <-  sample(1000:9999, 12, replace = FALSE)
lists <- c(rep('A',3), rep('B',3), rep('C',3));

# Assegna gli ID all'URL di base
urls <- paste(base_url, random_ids, "&list=list", lists, sep = "")


urls
d = data.frame(id=id, list=lists,url=urls)

id
lists
#seed per la riproducibilità
set.seed(123)

# PW 
base_url <- "https://francesco-vespignani.github.io/RepetitionMaze/run/?distr=nw&id="

# Genera 12 ID casuali
id <-  sample(1000:9999, 12, replace = FALSE)
lists <- c(rep('A',4), rep('B',4), rep('C',4));

# Assegna gli ID all'URL di base
urls <- paste(base_url, random_ids, "&list=list", lists, sep = "")

# Stampa gli URL
print(urls)

d = data.frame(id=id, list=lists,url=urls)
d
write.csv(d, 'pilot1,csv')
#seed per la riproducibilità
set.seed(123)

# PW 
base_url <- "https://francesco-vespignani.github.io/RepetitionMaze/run/?distr=nw&id="

# Genera 12 ID casuali
random_ids <-  sample(1000:9999, 12, replace = FALSE)
lists <- c(rep('A',4), rep('B',4), rep('C',4));

# Assegna gli ID all'URL di base
urls <- paste(base_url, random_ids, "&list=list", lists, sep = "")

# Stampa gli URL
print(urls)

# salva file csv per aggiungere info anagrafiche
d = data.frame(id=random_ids, list=lists,url=urls)
d$age = NA
d$sex = NA
write.csv(d, 'pilot1.csv')
q()