adding prepare for CRAN file

Author: mahaalbashir

.Rbuildignore

@@ -7,3 +7,4 @@
 ^\.github$
 ^example-notebook\.Rmd$
 ^example-notebook\.nb\.html$
+^cran-comments\.md$

.Rhistory

@@ -1,186 +1,3 @@
-acro_init()
-acro_crosstab(nursery_data$finance, nursery_data$social)
-system.file("R/utils.R", package = "acro")
-system.file("help", "AnIndex", package = "splines")
-devtools::load_all(".")
-acro_init()
-remove(list = ls())
-devtools::load_all(".")
-remove(list = ls())
-devtools::load_all(".")
-devtools::load_all(".")
-devtools::load_all(".")
-library(acro)
-acro_init()
-acro_crosstab(nursery_data$finance, nursery_data$social)
-remove(list = ls())
-detach("package:acro", unload = TRUE)
-library(acro)
-acro_crosstab(nursery_data$finance, nursery_data$social)
-acro_init()
-devtools::load_all(".")
-acro_init()
-acro_crosstab(nursery_data$finance, nursery_data$social)
-devtools::load_all(".")
-devtools::load_all(".")
-devtools::load_all(".")
-acro_init()
-devtools::load_all(".")
-rm(myPackageEnv)
-rm(acroEnv)
-rm(list = ls(envir = acroEnv), envir = acroEnv)
-rm(list = ls(envir = acroEnv), envir = acroEnv)
-rm(list = ls(envir = acroEnv), envir = acroEnv)
-rm(list = ls(envir = acroEnv), envir = acroEnv)
-rm(list = ls(envir = acroEnv), envir = acroEnv)
-ls()
-.
-search()
-library(acro)
-acro_crosstab(nursery_data$finance, nursery_data$social)
-acro_init()
-acro_crosstab(nursery_data$finance, nursery_data$social)
-rm(list = ls()
-)
-library(acro)
-acro_crosstab(nursery_data$finance, nursery_data$social)
-library(acro)
-acro_crosstab(nursery_data$finance, nursery_data$social)
-library(acro)
-library(acro)
-library(acro)
-acroEnv$ac
-devtools::load_all(".")
-acroEnv$ac
-devtools::load_all(".")
-library(acro)
-acro_crosstab(nursery_data$finance, nursery_data$social)
-acro_init()
-acro_crosstab(nursery_data$finance, nursery_data$social)
-testthat::test_file("tests/testthat/test-acro_crosstab.R")
-testthat::test()
-devtools::test()
-testthat::test_file("tests/testthat/test-acro.R")
-testthat::test_file("tests/testthat/test-acro_init.R")
-devtools::load_all(".")
-testthat::test_file("tests/testthat/test-acro_init.R")
-devtools::load_all(".")
-testthat::test_file("tests/testthat/test-acro_init.R")
-devtools::load_all(".")
-testthat::test_file("tests/testthat/test-acro_init.R")
-testthat::test_file("tests/testthat/test-install_acro.R")
-reticulate::py_list_virtualenvs()
-reticulate::py_remove_virtualenv(envname = "test-acro-env")
-reticulate::py_discover_config()
-devtools::load_all(".")
-testthat::test_file("tests/testthat/test-install_acro.R")
-devtools::load_all(".")
-testthat::test_file("tests/testthat/test-install_acro.R")
-devtools::load_all(".")
-testthat::test_file("tests/testthat/test-install_acro.R")
-library(acro)
-acro_init()
-acro_init()
-devtools::load_all(".")
-testthat::test_file("tests/testthat/test-install_acro.R")
-testthat::test_file("tests/testthat/test-install_acro.R")
-testthat::test_file("tests/testthat/test-install_acro.R")
-devtools::load_all(".")
-testthat::test_file("tests/testthat/test-install_acro.R")
-devtools::check()
-rhub::check_for_cran()
-library(acro)
-library(acro)
-acro_crosstab(nursery_data$finance, nursery_data$social)
-acro_init()
-acro_crosstab(nursery_data$finance, nursery_data$social)
-remove(list = ls())
-library(acro)
-acro_init()
-devtools::load_all(".")
-acro_init()
-acro_crosstab(nursery_data$finance, nursery_data$social)
-4
-devtools::load_all(".")
-acro_crosstab(nursery_data$finance, nursery_data$social)
-acro_init()
-acro_crosstab(nursery_data$finance, nursery_data$social)
-devtools::load_all(".")
-acro_crosstab(nursery_data$finance, nursery_data$social)
-acro_init()
-devtools::load_all(".")
-acro_crosstab(nursery_data$finance, nursery_data$social)
-acro_init()
-acro_crosstab(nursery_data$finance, nursery_data$social)
-devtools::load_all(".")
-acro_crosstab(nursery_data$finance, nursery_data$social)
-devtools::load_all(".")
-acro_crosstab(nursery_data$finance, nursery_data$social)
-devtools::check()
-devtools::check()
-devtools::check()
-devtools::check()
-rhub::check_for_cran()
-devtools::test()
-devtools::check()
-testthat::test_file("tests/testthat/test-acro_table.R")
-devtools::check()
-devtools::load_all(".")
-testthat::test_file("tests/testthat/test-acro_table.R")
-devtools::check()
-testthat::test_file("tests/testthat/test-install-acro.R")
-testthat::test_file("tests/testthat/test-install_acro.R")
-rhub::check_for_cran()
-rhub::check_for_cran()
-rhub::check_for_cran()
-rhub::check_for_cran()
-devtools::check()
-testthat::test_file("tests/testthat/test-install-acro.R")
-testthat::test_file("tests/testthat/test-install_acro.R")
-rhub::check_for_cran()
-rhub::check_for_cran()
-install.packages("acro")
-acro_init
-acro_init()
-library("acro")
-acro_init()
-names(data)[names(data) == "class"] <- "recommend"
-data = farff::readARFF("nursery_data/nursery.arff")
-data = as.data.frame(data)
-names(data)[names(data) == "class"] <- "recommend"
-unique(data$children)
-#data$children <- sub("more","6",data$children)
-unique(data$children)
-data$children <-as.numeric(as.character(data$children))
-unique(data$children)
-data[is.na(data)] <-  round(runif(sum(is.na(data)), min = 4, max = 10),0)
-unique(data$children)
-index = data[, c("health")]
-columns = data[, c("finance")]
-values = data[, c("children")]
-aggfunc = "mean"
-table = acro_crosstab(index, columns, values=values, aggfunc=aggfunc)
-table = acro_crosstab(index, columns, values=values)
-index = data[, c("health")]
-columns = data[, c("finance")]
-table = acro_crosstab(index, columns)
-table
-values = data[, c("children")]
-print(values)
-index = data[, c("health")]
-columns = data[, c("finance")]
-values = data[, c("children")]
-table = acro_crosstab(index, columns, values, aggfunc = "mean")
-reticulate::py_last_error()
-table = acro_crosstab(index = data[, c("health")], columns= data[, c("finance")], values=  data[, c("children")], aggfunc = "mean")
-table
-index = data[, c("health")]
-columns = data[, c("finance")]
-values = data[, c("children")]
-table = acro_crosstab(index = index, columns= columns, values= values,  aggfunc = "mean")
-table
-# Check if acro is installed
-if (!requireNamespace(acro, quietly = TRUE)) {
 # If not installed, install it
 install.packages(acro)
 # Load the package
@@ -510,3 +327,186 @@ values = data[, c("children")]
 values = matrix(values, ncol=1)
 table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "sum")
 table
+library(acro)
+help(acro_crosstab)
+help(package = acro)
+library("acro")
+library("acro")
+library("acro")
+acro_init()
+data = farff::readARFF("nursery_data/nursery.arff")
+data = as.data.frame(data)
+names(data)[names(data) == "class"] <- "recommend"
+data$children <-as.numeric(as.character(data$children))
+data[is.na(data)] <-  round(runif(sum(is.na(data)), min = 4, max = 10),0)
+unique(data$children)
+index = data[, c("parents")]
+columns = data[, c("social")]
+table = table(index, columns)
+table
+table = table(index, columns, deparse.level=1)
+table
+index = data[, c("parents")]
+columns = data[, c("social")]
+table = acro_table(index=index, columns=columns, deparse.level=1)
+table
+help(package=acro)
+data$recommend <- as.character(data$recommend)
+data$recommend[which(data$recommend=="not_recom")] <- "0"
+data$recommend[which(data$recommend=="recommend")] <- "1"
+data$recommend[which(data$recommend=="very_recom")] <- "2"
+data$recommend[which(data$recommend=="priority")] <- "3"
+data$recommend[which(data$recommend=="spec_prior")] <- "4"
+data$recommend <- as.numeric(data$recommend)
+# extract relevant columns
+df = data[, c("recommend", "children")]
+# drop rows with missing values
+df = df[complete.cases(df), ]
+# formula to fit
+formula = "recommend ~ children"
+acro_lm(formula=formula, data=df)
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count", margins=True)
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+print(columns)
+print(c(df$parents, df$has_nurs))
+columns = data[, c("parents", "has_nurs")]
+print(columns)
+print(typeof(columns))
+columns = data[, c("parents", "has_nurs")]
+print(columns)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+columns = list(data[, c("parents", "has_nurs")])
+index = data[, c("recommend")]
+columns = list(data[, c("parents", "has_nurs")])
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+index = data[, c("recommend")]
+columns = list(data[, c("parents", "has_nurs")])
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+index = data[, c("recommend")]
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+index = data[, c("recommend")]
+columns = data[, c("parents")]
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+table
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+# Create a list of arrays
+columns <- lapply(columns, as.list)
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+# Create a list of arrays
+columns <- lapply(columns, as.list)
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+print(typeof(columns))
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+print(typeof(c("parents")))
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+print(typeof(data[,c("parents")]))
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+print(typeof(data[, c("recommend")])
+# convert the values to an array
+values = matrix(values, ncol=1)
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+print(typeof(data[, c("recommend")]))
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+reticulate::py_last_error()
+index = data[, c("recommend")]
+columns = data[, c("parents")]
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+table
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+print(typeof(columns))
+print(columns)
+print(columns)
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+print(columns)
+# convert the values to an array
+# values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+index = data[, c("recommend")]
+columns = data[, c("parents", "has_nurs")]
+values = data[, c("children")]
+print(typeof(values))
+values = data[c("children")]
+print(typeof(values))
+columns = data[c("parents", "has_nurs")]
+print(typeof(columns))
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")
+index = data[, c("recommend", "has_nurs")]
+columns = data[, c("parents")]
+values = data[, c("children")]
+# convert the values to an array
+values = matrix(values, ncol=1)
+table = acro_crosstab(index = index, columns= columns, values = values,  aggfunc = "count")

cran-comments.md

@@ -0,0 +1,5 @@
+## R CMD check results
+
+0 errors | 0 warnings | 1 note
+
+* This is a new release.