.Rhistory

setwd("~/Desktop")
d <- read.csv('billboard.csv')
d <- read.csv('billboard.csv',header = TRUE)
head(d)
d <- read.csv('billboard.csv',header = TRUE)
head(d)
d <- read.csv('billboard.csv',header = TRUE,row.names = TRUE)
head(d)
d <- read.csv('billboard.csv',header = TRUE)
head(d)
d <- read.csv('billboard.csv',header = TRUE)
head(d)
sum(d$freq)
d$cs<-cumsum(d$freq)
d
length(d)
k<-1
d$chord[k]
tmp<-rep(d$chord[k],d$freq[k])
tmp
d$freq[k]
d$freq[k]*1000
d$freq[k]*100
d$freq[k]*10
## Create
D<-NULL
for (k in 1:nrow(d)) {
tmp<-rep(d$chord[k],d$freq[k]*10)
D<-rbind(D,tmp)
}
## Create
D<-NULL
for (k in 1:nrow(d)) {
print(k)
tmp<-rep(d$chord[k],d$freq[k]*10)
D<-rbind(D,tmp)
}
warnings()
tmp
## Create
D<-NULL
for (k in 1:nrow(d)) {
print(k)
tmp<-rep(d$chord[k],d$freq[k]*10)
D<-c(D,tmp)
}
table(D)
hist(D)
hist(table(D))
table(D)
head(D)
T<-table(D)
T
as.numeric(T)
sum(as.numeric(T))
as.numeric(T)/sum(as.numeric(T))
d
Sys.getenv(GITHUB_PAT)
Sys.getenv(GITHUB_PAT="")
Sys.setenv(GITHUB_PAT="")
devtools::install_github("tuomaseerola/MusicScienceData")
d <- get_OSF_csv(address = 'https://osf.io/r2x7w')
d <- onsetsync::get_OSF_csv(address = 'https://osf.io/r2x7w')
library(onsetsync)
d <- onsetsync::get_OSF_csv(address = 'https://osf.io/r2x7w')
library(onsetsync)
library(httr)
d <- onsetsync::get_OSF_csv(address = 'https://osf.io/r2x7w')
d