[R] Error in Rose Method (class balancing)

[Neha gupta]

David, I understand that the file will not be in your directory but I have
provided the data using dput? Didn't I? Previously members of this group
have used dput to provide the detail about their data. Seriously, I have no
idea how else I can provide a reproducible example.



<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail&utm_term=icon>
Virus-free.
www.avast.com
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail&utm_term=link>
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>

On Thu, Jul 23, 2020 at 10:47 PM David Winsemius <dwinsemius using comcast.net>
wrote:

>
> On 7/23/20 9:34 AM, Neha gupta wrote:
>
>
> Hello David, file not found should be the path problem I guess. I just
> forgot the pROC library, which I included here. These are all the libraries
> I am using.
>
> library(caret)
> library(farff)
> library(DMwR)
> library(pROC)
> library(pls)
>
> setwd("C:/Users/PC/Documents")
> d=readARFF("bughunter.arff")
>
>
> I suppose *you* might have such a file in that directory, but do you
> assume that *we* will????
>
> A reproducible example will allow others to run your code. Seems fairly
> clear that we are not there yet.
>
> --
>
> David.
>
> dput( head( d, 30 ) )
>
> index <- createDataPartition(d$`Bug class`, p = .70,list = FALSE)
>
> tr <- d[index, ]
>
> ts <- d[-index, ]
>
> boot3 <- trainControl(method = "repeatedcv", number=10,
> repeats=10,classProbs = TRUE,verboseIter = FALSE,
>
> summaryFunction = twoClassSummary, sampling = "rose")
>
> set.seed(30218)
>
> ct <- train(`Bug class` ~ ., data = tr, method = "pls", metric = "AUC", preProc
> = c("center", "scale", "nzv"), trControl = boot3)
>
> getTrainPerf(ct)
>
>
>
> <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail&utm_term=icon> Virus-free.
> www.avast.com
> <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail&utm_term=link>
>
> On Thu, Jul 23, 2020 at 4:01 PM Neha gupta <neha.bologna90 using gmail.com>
> wrote:
>
>>
>> Hello David, thanks for your reply. I have added the information.
>>
>> library(caret)
>> library(farff)
>> library(DMwR)
>>
>> d=readARFF("bughunter.arff")
>> dput( head( d, 30 ) )
>>
>> index <- createDataPartition(d$`Bug class`, p = .70,list = FALSE)
>>
>> tr <- d[index, ]
>>
>> ts <- d[-index, ]
>>
>> boot3 <- trainControl(method = "repeatedcv", number=10,
>> repeats=10,classProbs = TRUE,verboseIter = FALSE,
>>
>> summaryFunction = twoClassSummary, sampling = "rose")
>>
>> set.seed(30218)
>>
>> ct <- train(`Bug class` ~ ., data = tr, method = "pls", metric = "AUC", preProc
>> = c("center", "scale", "nzv"), trControl = boot3)
>>
>> getTrainPerf(ct)
>>
>> On Thu, Jul 23, 2020 at 1:08 AM David Winsemius <dwinsemius using comcast.net>
>> wrote:
>>
>>>
>>> On 7/22/20 3:43 PM, Neha gupta wrote:
>>> > Hello,
>>> >
>>> >
>>> > I get the following error when I use the ROSE class balancing method
>>> but
>>> > when I use other methods like SMOTE, up, down, I do not get any error
>>> > message.
>>> >
>>> >
>>> > Something is wrong; all the ROC metric values are missing:
>>> >
>>> > ROC Sens Spec
>>> >
>>> > Min. : NA Min. : NA Min. : NA
>>> >
>>> > 1st Qu.: NA 1st Qu.: NA 1st Qu.: NA
>>> >
>>> > Median : NA Median : NA Median : NA
>>> >
>>> > Mean :NaN Mean :NaN Mean :NaN
>>> >
>>> > 3rd Qu.: NA 3rd Qu.: NA 3rd Qu.: NA
>>> >
>>> > Max. : NA Max. : NA Max. : NA
>>> >
>>> >
>>> >
>>> > library(DMwR)
>>> >
>>> > d=readARFF("bughunter.arff")
>>>
>>> After installing that package and loading pkg:DMwR I get:
>>>
>>>
>>> Error in readARFF("bughunter.arff") : could not find function "readARFF"
>>>
>>>
>>> Since you also posted in HTML, I suggest you read the Posting Guide,
>>> restart and R session and post a reproducible example that loads all
>>> needed packages and data.
>>>
>>> --
>>>
>>> David.
>>>
>>> >
>>> > index <- createDataPartition(d$`Bug class`, p = .70,list = FALSE)
>>> >
>>> > tr <- d[index, ]
>>> >
>>> > ts <- d[-index, ]
>>> >
>>> > boot3 <- trainControl(method = "repeatedcv", number=10,
>>> > repeats=10,classProbs = TRUE,verboseIter = FALSE,
>>> >
>>> > summaryFunction = twoClassSummary, sampling = "rose")
>>> >
>>> > set.seed(30218)
>>> >
>>> > ct <- train(`Bug class` ~ ., data = tr,
>>> >
>>> > method = "pls",
>>> >
>>> > metric = "AUC",
>>> >
>>> > preProc = c("center", "scale", "nzv"),
>>> >
>>> > trControl = boot3)
>>> >
>>> > getTrainPerf(ct)
>>> >
>>> >       [[alternative HTML version deleted]]
>>> >
>>> > ______________________________________________
>>> > R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>>> > https://stat.ethz.ch/mailman/listinfo/r-help
>>> > PLEASE do read the posting guide
>>> http://www.R-project.org/posting-guide.html
>>> > and provide commented, minimal, self-contained, reproducible code.
>>>
>>

	[[alternative HTML version deleted]]