Сообщение об ошибке о неиспользованном параметре в функции apriori R - PullRequest
Новая
       45

Сообщение об ошибке о неиспользованном параметре в функции apriori R

0 голосов
/ 04 июля 2019

Я новичок в R и пытаюсь создать функцию, которая будет динамически выполнять функцию apriori в зависимости от параметров. Я застрял при попытке определить свои правила. Любая помощь по нижеуказанной ошибке будет принята с благодарностью!

Я полностью попытался погуглить мою ошибку и просмотрел похожие вопросы по stackoverflow, но не нашел решения, которое работает для меня. 

library(arules)
library(arulesViz)
library(RColorBrewer)

## Define function
apriori <- function (file_name, minsup, minconf, unique_id_first_column) {

 data <- read.csv(file_name)

if (unique_id_first_column == 1)
{
## remove first column
data <- data[ -1]
}

 ## Replace any missing values with 0
  data[is.na(data)] <- 0

 ## Turns into T/F Values
 data <- apply(data,2,as.logical)


#Create Frequent Itemsets

rules <- apriori(data, parameter=list(support=.6,target="frequent 
itemsets"))

## AFTER THIS LINE THE FOLLOWING ERROR IS PRODUCED
## Error in apriori(data, parameter = list(support = 0.6, target = 
## "frequent itemsets")) : 
## unused argument (parameter = list(support = 0.6, target = "frequent 
## itemsets"))


return (data)
}

#get user inputs

file_name <- readline(prompt="Enter File Name & Extension:")
min_sup <- as.numeric(readline(prompt="Enter Minimum Support:"))
min_conf <- as.numeric(readline(prompt="Enter Minimum Confidence:"))
unique_id_first_column <- as.numeric(readline(prompt="Enter a 1 if first 
column is the unique key:"))



apriori(file_name, min_sup, min_conf, unique_id_first_column)


##rm(list=ls())
...