Source: https://paperswithcode.com/dataset/cvr
CSV: https://raw.githubusercontent.com/bavla/NormNet/main/data/USsenate/cvr.csv
> wdir <- "C:/Users/vlado/DL/data/2-mode/vote/vote"
> setwd(wdir)
> V <- read.csv("vote_csv.csv",head=TRUE,sep=",")
> dim(V)
[1] 435 17
> head(V)
> V[V=="y"] <- "p"
> V[V==""] <- "z"
> head(V)
handicapped.infants water.project.cost.sharing adoption.of.the.budget.resolution physician.fee.freeze
1 n p n p
2 n p n p
3 z p p z
4 n p p n
5 p p p n
6 n p p n
> L <- as.character(1001:1125)
> S <- paste(substr(V$Class,1,1),substr(L,2,4),sep="")
> head(S)
[1] "r001" "r002" "d003" "d004" "d005" "d006"
> row.names(V) <- S
> write.csv(V[,1:16],"cvr.csv",row.names=TRUE)