Skip to content

Instantly share code, notes, and snippets.

@suinua
Last active November 20, 2023 08:50
Show Gist options
  • Select an option

  • Save suinua/8a9abf6f90c43c70dc5a7fd81290bb8b to your computer and use it in GitHub Desktop.

Select an option

Save suinua/8a9abf6f90c43c70dc5a7fd81290bb8b to your computer and use it in GitHub Desktop.
JapUS <-
list(set1 = structure(list(Japan = c(1L,2L,0L,3L,0L,4L,0L,5L,
0L,0L,6L,7L,0L,8L,0L,9L,0L,10L,0L,0L,0L,11L,0L,12L,0L,0L,0L,
0L,13L,0L,14L,15L,16L,0L,0L,17L,0L,0L,0L,0L,18L,0L,19L,0L,),
US = c(0L,0L,1L,0L,2L,0L,3L,0L,4L,5L,0L,0L,6L,0L,7L,0L,8L,0L,
9L,10L,11L,0L,12L,0L,13L,14L,15L,16L,0L,17L,0L,0L,0L,18L,19L,
0L,20L,21L,22L,23L,0L,24L,0L,25L,)), class = "data.frame",
row.names = c(NA, -44L)), set2 = structure(list(Japan = c(0L,1L,
0L,0L,2L,0L,3L,0L,4L,0L,5L,0L,0L,6L,0L,7L,0L,8L,0L,9L,10L,0L,11L,
0L,12L,13L,0L,14L,15L,0L,16L,0L,0L,17L,18L,19L,0L,20L,21L,0L,22L,
0L,23L,0L,), US = c(1L,0L,2L,3L,0L,4L,0L,5L,0L,6L,0L,7L,8L,0L,9L,
0L,10L,0L,11L,0L,0L,12L,0L,13L,0L,0L,14L,0L,0L,15L,0L,16L,17L,0L,
0L,0L,18L,0L,0L,19L,0L,20L,0L,21L,)), class = "data.frame",
row.names = c(NA, -44L)), set3 = structure(list(Japan = c(0L,
1L,0L,2L,0L,3L,0L,4L,0L,5L,0L,6L,7L,0L,0L,8L,0L,9L,10L,11L,0L,12L,
0L,13L,14L,15L,0L,16L,0L,17L,18L,19L,0L,20L,0L,0L,21L,0L,0L,22L,23L,
0L,24L,25L,), US = c(1L,0L,2L,0L,3L,0L,4L,0L,5L,0L,6L,0L,0L,7L,8L,0L,
9L,0L,0L,0L,10L,0L,11L,0L,0L,0L,12L,0L,13L,0L,0L,0L,14L,0L,15L,16L,0L,
17L,18L,0L,0L,19L,0L,0L,)), class = "data.frame", row.names = c(NA,-44L)),
set4 = structure(list(Japan = c(1L,0L,2L,0L,3L,4L,0L,0L,5L,0L,0L,0L,
0L,0L,6L,7L,0L,8L,0L,9L,0L,10L,0L,11L,12L,0L,13L,14L,15L,0L,16L,17L,18L,0L,0L,
19L,20L,0L,0L,0L,0L,0L,21L,0L,), US = c(0L,1L,0L,2L,0L,0L,3L,4L,0L,5L,6L,7L,8L,
9L,0L,0L,10L,0L,11L,0L,12L,0L,13L,0L,0L,14L,0L,0L,0L,15L,0L,0L,0L,16L,17L,0L,0L,
18L,19L,20L,21L,22L,0L,23L,)), class = "data.frame", row.names = c(NA, -44L)),
set5 = structure(list(Japan = c(0L,1L,0L,0L,2L,3L,4L,0L,
5L,0L,0L,0L,0L,0L,6L,0L,7L,0L,8L,9L,0L,10L,11L,0L,12L,0L,0L,13L,),
US = c(1L,0L,2L,3L,0L,0L,0L,4L,0L,5L,6L,7L,8L,9L,0L,10L,0L,11L,0L,0L,12L,
0L,0L,13L,0L,14L,15L,0L,)),class = "data.frame", row.names = c(NA, -42L)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment