====== Cuisine ======

<code>
> wdir <- "C:/Users/vlado/DL/data/hyper/cooking/cat-edge-Cooking"
> setwd(wdir)
> C <- read.csv("hyperedge-label-identities.txt",header=FALSE)
> head(C)
          V1
1     korean
2    russian
3 vietnamese
4   filipino
5  brazilian
6     indian
> N <- read.csv("node-labels.txt",header=FALSE)
> head(N)
            V1
1 ginger paste
2     sea salt
3   shortbread
4    chocolate
5  puffed rice
6      harissa
> T <- read.csv("hyperedge-labels.txt",header=FALSE)
> head(T)
  V1
1 16
2  9
3  4
4  6
5  6
6 19
> L <- readLines("hyperedges.txt")
> head(L)
[1] "5930\t3243\t3671\t252\t2291\t1910\t4243\t2095\t5046"                                                                
[2] "1979\t1810\t4799\t5176\t3494\t836\t4905\t5565\t2454\t3689\t5990"                                                    
[3] "4905\t2291\t4799\t2387\t2440\t5635\t6530\t3311\t3013\t4578\t4335\t5965"                                             
> length(L)
[1] 39774
> length(T$V1)
[1] 39774
> as.integer(unlist(strsplit(L[1],"\t")))
[1] 5930 3243 3671  252 2291 1910 4243 2095 5046
> m <- length(T$V1)
> lab <- paste("e",1:m,sep="")
> H <- data.frame(ID=lab,T=T$V1,E=rep(NA,m))
> dim(H)
[1] 39774     3
> E = vector(mode="list",m)
> for(i in 1:m) E[[i]] <- as.integer(unlist(strsplit(L[i],"\t")))
> H$E <- E
> n <- length(N$V1); V <- data.frame(ID=N$V1)
> info <- list(network="cat-edge-Cooking",
+   title="ARB: cat-edge-Cooking dataset",
+   by="Austin R. Benson",
+   href=c("https://www.cs.cornell.edu/~arb/data/",
+          "https://www.kaggle.com/c/whats-cooking"),
+   creator="V. Batagelj",
+   date=date(),
+   nNodes=n, 
+   nLinks=m,
+   simple=NA )
> data <- list(cuisine=C$V1)
> HN <- list(format="hypernets",info=info,nodes=V,links=H,data=data)
> str(HN)
List of 5
 $ format: chr "hypernets"
 $ info  :List of 9
  ..$ network: chr "cat-edge-Cooking"
  ..$ title  : chr "ARB: cat-edge-Cooking dataset"
  ..$ by     : chr "Austin R. Benson"
  ..$ href   : chr [1:2] "https://www.cs.cornell.edu/~arb/data/" "https://www.kaggle.com/c/whats-cooking"
  ..$ creator: chr "V. Batagelj"
  ..$ date   : chr "Wed Oct 18 04:46:56 2023"
  ..$ nNodes : int 6759
  ..$ nLinks : int 39774
  ..$ simple : logi NA
 $ nodes :'data.frame': 6759 obs. of  1 variable:
  ..$ ID: chr [1:6759] "ginger paste" "sea salt" "shortbread" "chocolate" ...
 $ links :'data.frame': 39774 obs. of  3 variables:
  ..$ ID: chr [1:39774] "e1" "e2" "e3" "e4" ...
  ..$ T : int [1:39774] 16 9 4 6 6 19 17 20 7 20 ...
  ..$ E :List of 39774
  .. ..$ : int [1:9] 5930 3243 3671 252 2291 1910 4243 2095 5046
  .. ..$ : int [1:11] 1979 1810 4799 5176 3494 836 4905 5565 2454 3689 ...
  .. ..$ : int [1:12] 4905 2291 4799 2387 2440 5635 6530 3311 3013 4578 ...
  .. ..$ : int [1:4] 4910 5990 4215 4799
  .. ..$ : int [1:20] 3240 1327 345 4447 678 2524 3689 4335 4799 6428 ...
  .. .. [list output truncated]
 $ data  :List of 1
  ..$ cuisine: chr [1:20] "korean" "russian" "vietnamese" "filipino" ...
> write(toJSON(HN),"Cooking.json")
</code>