test

R/calhouse.R

@@ -2,15 +2,15 @@
 #' The data pertains to the houses found in a given California district and some summary stats about them based on the 1990 census data.
 #'
 #'
-#' @format A dataframe 
-#' \describe{
+#' @format A dataframe 20640 observations, 14 variables
+#' 
 #'\describe{
 #'\item{\code{Longitude}}{A measure of how far west a house is; a higher value is farther west}
 #'\item{\code{Latitude}}{A measure of how far north a house is; a higher value is farther north}
 #'\item{\code{Median_Age}}{Median age of a house within a block; a lower number is a newer building}
 #'\item{\code{Tot_Rooms}}{Total number of rooms within a block}
 #'\item{\code{Tot_Bedrooms}}{Total number of bedrooms within a block}
-#'\item{\code{Population}}{Total number of people residing within a block}}
+#'\item{\code{Population}}{Total number of people residing within a block}
 #'\item{\code{Households}}{Total number of households, a group of people residing within a home unit, for a block}
 #'\item{\code{Median_Income}}{Median income for households within a block of houses (measured in tens of thousands of US Dollars)}
 #'\item{\code{Median_House_Value}}{Median house value for households within a block (measured in US Dollars)}
@@ -22,3 +22,4 @@
 #'}
 
 "calhouse"
+

R/testdata.R

-#' Testdata is a dataset with generated values for explanatory purposes
-#'
-#' Testdata includes infromation about 100 persons and their age, spending habits, gender and income. The values are computer generated via random numbers and some limiters.
+
+#' Random generated numbers and values for expplanatory purpose.
 #'
 #'
-#' @format A dataframe with 100 observations and 4 variables:
+#' @format A data frame,100 observations,  4 variables
 #' \describe{
-#'   \item{age}{int age in years}
-#'   \item{spending_habits}{int spendings per month in euro}
-#'   \item{gender}{chr genderidentity: male, female, nonbinary}
-#'   \item{income}{int income per month in euro}
+#'\item{\code{age}}{int age in years}
+#'\item{\code{spending_habits}}{int spendings per month in euro}
+#'\item{\code{income}}{int income per month in euro}
+#'\item{\code{gender}}{chr genderidentity: male, female, nonbinary}
 #'}
 
-"testdata" # Testdata
\ No newline at end of file
+"testdata"

data-raw/calhouse_load.R

-## code to prepare `DATASET` dataset goes here
+## code to prepare `calhouse` dataset goes here
+
+library(devtools)
+library(roxygen2)
 
 calhouse <- read.csv("Z://wiso/SozOek_EmpWifo/Gemeinsam/L_Projekte/Data_Science_Kurs_WiSe_2023_24/sozoekds/data-raw/calhouse.csv")
 
 usethis::use_data(calhouse, overwrite = TRUE)
 
-devtools::load_all()
-examscores
 
-check()
+

data-raw/examscores_load.R

 
-## code to prepare `DATASET` dataset goes here
+## code to prepare `examscores` dataset goes here
 
 examscores <- read.csv("Z://wiso/SozOek_EmpWifo/Gemeinsam/L_Projekte/Data_Science_Kurs_WiSe_2023_24/sozoekds/data-raw/examscores.csv")
 
-save(examscores, file = "Z://wiso/SozOek_EmpWifo/Gemeinsam/L_Projekte/Data_Science_Kurs_WiSe_2023_24/sozoekds/data/examscores.rda")
-
+usethis::use_data(examscores, overwrite = TRUE)

data-raw/testdata_load.R

-## code to prepare `DATASET` dataset goes here
+## code to prepare `testdata` dataset goes here
+
+library(devtools)
+library(roxygen2)
+
+testdata <- read.csv("Z://wiso/SozOek_EmpWifo/Gemeinsam/L_Projekte/Data_Science_Kurs_WiSe_2023_24/sozoekds/data-raw/testdata.csv")
+
+usethis::use_data(testdata, overwrite = TRUE)
 
-usethis::use_data(DATASET, overwrite = TRUE)

man/calhouse.Rd

@@ -5,15 +5,15 @@
 \alias{calhouse}
 \title{The data pertains to the houses found in a given California district and some summary stats about them based on the 1990 census data.}
 \format{
-A dataframe
-\describe{
+A dataframe 20640 observations, 14 variables
+
 \describe{
 \item{\code{Longitude}}{A measure of how far west a house is; a higher value is farther west}
 \item{\code{Latitude}}{A measure of how far north a house is; a higher value is farther north}
 \item{\code{Median_Age}}{Median age of a house within a block; a lower number is a newer building}
 \item{\code{Tot_Rooms}}{Total number of rooms within a block}
 \item{\code{Tot_Bedrooms}}{Total number of bedrooms within a block}
-\item{\code{Population}}{Total number of people residing within a block}}
+\item{\code{Population}}{Total number of people residing within a block}
 \item{\code{Households}}{Total number of households, a group of people residing within a home unit, for a block}
 \item{\code{Median_Income}}{Median income for households within a block of houses (measured in tens of thousands of US Dollars)}
 \item{\code{Median_House_Value}}{Median house value for households within a block (measured in US Dollars)}

man/examscores.Rd

@@ -5,7 +5,7 @@
 \alias{examscores}
 \title{This data set includes scores from three test scores of students at a (fictional) public school and a variety of personal and socio-economic factors that may have interaction effects upon them.}
 \format{
-A dataframe, 15 variables, 30641 observations
+A dat aframe, 30641 observations, 15 variables
 \describe{
 item{\code{Gender}}{Gender of a student (string)}
 item{\code{EthnicGroup}}{Origin of a student (string)}

man/testdata.Rd

@@ -3,10 +3,9 @@
 \docType{data}
 \name{testdata}
 \alias{testdata}
-\title{Random numbers for 100 persons for age, gender, income and spending habits}
+\title{Random generated numbers and values for expplanatory purpose.}
 \format{
-A dataframe with 100 rows and 4 variables:
-\describe{
+A data frame,100 observations,  4 variables
 \describe{
 \item{\code{age}}{int age in years}
 \item{\code{spending_habits}}{int spendings per month in euro}
@@ -14,13 +13,10 @@ A dataframe with 100 rows and 4 variables:
 \item{\code{gender}}{chr genderidentity: male, female, nonbinary}
 }
 }
-\source{
-\url{Quellangabe (hier beispielsweise als Link)}
-}
 \usage{
 testdata
 }
 \description{
-Random-generated numbers for explanatory purposes. Include data about age, gender, income and spending habits of 100 persons.
+Random generated numbers and values for expplanatory purpose.
 }
 \keyword{datasets}