[R] address some lintr warnings (#8609)
This commit is contained in:
@@ -1,8 +1,10 @@
|
||||
site <- 'http://cran.r-project.org'
|
||||
if (!require('dummies'))
|
||||
install.packages('dummies', repos=site)
|
||||
if (!require('insuranceData'))
|
||||
install.packages('insuranceData', repos=site)
|
||||
if (!require('dummies')) {
|
||||
install.packages('dummies', repos = site)
|
||||
}
|
||||
if (!require('insuranceData')) {
|
||||
install.packages('insuranceData', repos = site)
|
||||
}
|
||||
|
||||
library(dummies)
|
||||
library(insuranceData)
|
||||
@@ -14,5 +16,16 @@ data$STATE <- as.factor(data$STATE)
|
||||
data$CLASS <- as.factor(data$CLASS)
|
||||
data$GENDER <- as.factor(data$GENDER)
|
||||
|
||||
data.dummy <- dummy.data.frame(data, dummy.class='factor', omit.constants=TRUE);
|
||||
write.table(data.dummy, 'autoclaims.csv', sep=',', row.names=F, col.names=F, quote=F)
|
||||
data.dummy <- dummy.data.frame(
|
||||
data
|
||||
, dummy.class = 'factor'
|
||||
, omit.constants = TRUE
|
||||
)
|
||||
write.table(
|
||||
data.dummy
|
||||
, 'autoclaims.csv'
|
||||
, sep = ','
|
||||
, row.names = FALSE
|
||||
, col.names = FALSE
|
||||
, quote = FALSE
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user